Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit
GELÖST

Word Seitenumbruch löschen

Frage Entwicklung VB for Applications

Mitglied: MarcoBorn

MarcoBorn (Level 1) - Jetzt verbinden

09.02.2015, aktualisiert 11.02.2015, 1313 Aufrufe, 3 Kommentare

Hallo Forum,
mit folgenden Code versuche ich, alle Seitenumbrüche in Word zu löschen:

01.
  Selection.HomeKey Unit:=wdStory 
02.
  Selection.EndKey Unit:=wdStory, Extend:=wdExtend 
03.
  Selection.Find.ClearFormatting 
04.
  Selection.Find.Replacement.ClearFormatting 
05.
  With Selection.Find 
06.
    .Text = "^m" 
07.
    .Replacement.Text = "" 
08.
    .Forward = True 
09.
    .Wrap = wdFindStop 
10.
    .Format = False 
11.
    .MatchCase = False 
12.
    .MatchWholeWord = False 
13.
    .MatchWildcards = False 
14.
    .MatchSoundsLike = False 
15.
    .MatchAllWordForms = False 
16.
  End With 
17.
  Selection.Find.Execute Replace:=wdReplaceAll
Den Code habe ich direkt vom Makrorecorder übernommen, aber leider funktioniert das Ganze nicht. Hat Word beim Löschen von Steuerzeichen per VBA ein Problem, oder muss ich dabei anders vorgehen?

Vielen Dank für Eure Hilfe,
M. Born
Mitglied: colinardo
LÖSUNG 09.02.2015, aktualisiert 11.02.2015
Hi Marco,
probiers mal hiermit, das macht hier testweise das gewünschte:
01.
Sub RemoveAllManualPageBreaks() 
02.
    With ThisDocument.Content.Find 
03.
        .Text = "^m" 
04.
        .Replacement.Text = "" 
05.
        .Execute Replace:=wdReplaceAll 
06.
    End With 
07.
End Sub
Grüße Uwe
Bitte warten ..
Mitglied: MarcoBorn
09.02.2015 um 13:45 Uhr
Hallo Uwe,
vielen Dank für Deinen Code. Ich muss gleich auf Dienstreise, werde es aber am Mittowch testen.

Viele Grüße,
Marco
Bitte warten ..
Mitglied: MarcoBorn
11.02.2015 um 11:58 Uhr
Hallo Uwe,
ich habe Deinen Code probiert und er funktioniert.

Vielen Dank,
Marco
Bitte warten ..
Ähnliche Inhalte
Neue Wissensbeiträge
RedHat, CentOS, Fedora

Fedora, RedHat, Centos: DNS-Search Domain setzen

(13)

Tipp von Frank zum Thema RedHat, CentOS, Fedora ...

Drucker und Scanner

Samsung SL-M4025ND, firmware update und (kompatible) Tonerkassetten

(1)

Erfahrungsbericht von markus-1969 zum Thema Drucker und Scanner ...

Heiß diskutierte Inhalte
Windows 10
Windows für Privatanwender "nicht mehr handhabbar" (35)

Frage von FA-jka zum Thema Windows 10 ...

LAN, WAN, Wireless
Komplett neues Netzwerk, Ubiquiti WLAN, Router, Switch (15)

Frage von Freak-On-Silicon zum Thema LAN, WAN, Wireless ...

Backup
Backup Wochen- Monats- Jahressicherung (13)

Frage von Meterpeter zum Thema Backup ...

RedHat, CentOS, Fedora
Fedora, RedHat, Centos: DNS-Search Domain setzen (13)

Tipp von Frank zum Thema RedHat, CentOS, Fedora ...