Word – Seitenumbrüche durch Abschnittswechsel ersetzten per Makro

Sub ErsetzenSeitenumbruchAbschnittswechsel()
'Ersetzt manuelle Seitenwechsel durch Abschnittswechsel

Dim rngSuchen As Word.Range
Dim i As Integer

'Der Sinn dieser With-Prozedur ist, die Suche nach Abbruch zu ermöglichen.
With Selection.Find
.Execute MatchWildcards:=True, FindText:="?"
Selection.Collapse Direction:=wdCollapseStart
If Not .Found Then
CommandBars.FindControl(ID:=313).Execute
SendKeys String:="{ENTER}", wait:=True
SendKeys String:="{ESC}", wait:=True
DoEvents
End If
Selection.Collapse Direction:=wdCollapseStart
.MatchWildcards = False
.Text = ""
End With

i = 1

Do
Set rngSuchen = ActiveDocument.Sections(i).Range

With rngSuchen.Find
.ClearFormatting
.Replacement.ClearFormatting
End With

With rngSuchen.Find
.Text = "^m"
.Forward = True
.Wrap = wdFindStop
.Format = False
.MatchWildcards = True
End With
rngSuchen.Find.Execute

If rngSuchen.Find.Found Then
rngSuchen.Select
With Selection
.Delete
.InsertBreak Type:=wdSectionBreakNextPage
.Collapse Direction:=wdCollapseEnd
End With
i = i + 1
Else
Exit Do
End If
Loop Until Not rngSuchen.Find.Found

Set rngSuchen = Nothing

End Sub

Werbeanzeigen