Word Seitenumbruch löschen

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

  Selection.HomeKey Unit:=wdStory
  Selection.EndKey Unit:=wdStory, Extend:=wdExtend
  Selection.Find.ClearFormatting
  Selection.Find.Replacement.ClearFormatting
  With Selection.Find
    .Text = "^m"  
    .Replacement.Text = ""  
    .Forward = True
    .Wrap = wdFindStop
    .Format = False
    .MatchCase = False
    .MatchWholeWord = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
  End With
  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

Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben

Content-ID: 262854

Url: https://administrator.de/forum/word-seitenumbruch-loeschen-262854.html

Ausgedruckt am: 22.12.2024 um 13:12 Uhr

3 Kommentare

Neuester Kommentar

Hi Marco,
probiers mal hiermit, das macht hier testweise das gewünschte:

Sub RemoveAllManualPageBreaks()
    With ThisDocument.Content.Find
        .Text = "^m"  
        .Replacement.Text = ""  
        .Execute Replace:=wdReplaceAll
    End With
End Sub

Grüße Uwe