Удалить разделы (разделители страниц) в ворде

Sub Удалить_раделы()
' Удаляет разделы в Ворде
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
    Application.DisplayAlerts = False
        .Text = "^b"
        .Replacement.Text = "^p"
        .Wrap = wdFindContinue
    Application.DisplayAlerts = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub