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

Please also mark the comments that contributed to the solution of the article

Content-Key: 262854

Url: https://administrator.de/contentid/262854

Printed on: April 19, 2024 at 19:04 o'clock

3 Comments

Latest comment

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