Sub Demo()
Application.ScreenUpdating = False
Dim s As Long, Rng As Range
With ActiveDocument
  For s = .Sections.Count To 1 Step -1
    With .Sections(s)
      Set Rng = .Range: Rng.End = Rng.End - 1
      Rng.Find.Execute FindText:=Chr(12), Replacewith:="", Forward:=True, Wrap:=wdFindStop, Replace:=wdReplaceAll
      If s = 1 Then Exit Sub
      If .PageSetup.SectionStart <> wdSectionContinuous Then .Range.Characters.Last.Delete
    End With
  Next
End With
Application.ScreenUpdating = True
End Sub

Set rngPage= ActiveDocument.Bookmarks("\page").Range
If Len(rngPage.Text) - Len(Replace(rngPage.Text, Chr(12), "")) > 0 Then

Sub Find_ContSectionBrks()

Dim Rng As range
    Application.ScreenUpdating = False
    Set Rng = Selection.range
    With Rng.Find
        .ClearFormatting
       .Replacement.ClearFormatting
       .text = "^12"
       .Forward = True
       .Wrap = wdFindStop
       .MatchWildcards = True
       While .Execute
          If Rng.Characters.Last.Information(wdActiveEndPageNumber) = _
            Rng.Characters.Last.Next.Information(wdActiveEndPageNumber) Then
             Rng.Select
             Rng.InsertBefore "ContBr" 
             Selection.range.HighlightColorIndex = wdBrightGreen
             Rng.Collapse wdCollapseEnd
          End If
       Wend
    End With
    Application.ScreenUpdating = True
    Set Rng = Nothing
End Sub

Option Explicit
Sub YourLargerMacro()
  If fcnXorY Then
    MsgBox "Do x"
  Else
    MsgBox "Do y"
  End If
lbl_Exit:
  Exit Sub
End Sub
Function fcnXorY() As Boolean
'A basic Word Macro coded by Gregory K. Maxey
Dim oRngStart As Range, oRng As Range
Dim bDo_x As Boolean
  bDo_x = False
  Set oRngStart = Selection.Range
  Set oRng = ActiveDocument.Bookmarks("\Page").Range
  With oRng.Find
    .Text = "^m"
    If .Execute Then
      bDo_x = True
    Else
      With oRng.Find
        .Text = "^b"
        Do While .Execute
          oRng.Collapse wdCollapseEnd
          oRng.Select
          If Selection.Sections(1).PageSetup.SectionStart <> wdSectionContinuous Then
            bDo_x = True
            Exit Do
          End If
        Loop
      End With
    End If
  End With
  oRngStart.Select
lbl_Exit:
  Exit Function
End Function