Sub MainProcedure()
Dim oRng As Range
  Application.ScreenUpdating = False
  'Do things
  'Do things
  'Call the CompoundCR procedure for the main text and footnotes (if exists)
  For Each oRng In ActiveDocument.StoryRanges
    Select Case oRng.StoryType
      Case 1, 2: CompoundCRs oRng
    End Select
  Next oRng
  'Do things or call other procedures
  Application.ScreenUpdating = True
  Selection.HomeKey Unit:=wdStory
  MsgBox "Complete"
lbl_Exit:
  Exit Sub
End Sub