Sub DeletePageBreaks()
Dim arr() As Variant
Dim i As Byte
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
arr = Array("wdSectionBreakContinuous", "^m", "^n", "^b")
  For i = LBound(arr) To UBound(arr)
    With Selection.Find
      .Text = arr(i)
      .Replacement.Text = ""
      .Forward = True
      .Wrap = wdFindContinue
    End With
  Selection.Find.Execute Replace:=wdReplaceAll
  Next
End Sub