Sub PB_CleanUp()
' Paul Beverley - Version 13.06.20
' Cleans up a file by F&R

myResponse = MsgBox("    GRH Clean-up macro" & vbCr & vbCr & _
       "Run assorted clean-up routines?", vbQuestion _
       + vbYesNoCancel, "The things I do for you!!")
If myResponse <> vbYes Then Exit Sub

For i = 1 To 3
  changeIt = False
  If i = 1 Then
    Set rng = ActiveDocument.Content
    changeIt = True
  If i = 2 And ActiveDocument.Footnotes.Count > 0 Then
    Set rng = ActiveDocument.StoryRanges(wdFootnotesStory)
    changeIt = True
  End If
  If i = 3 And ActiveDocument.Endnotes.Count > 0 Then _
    Set rng = ActiveDocument.StoryRanges(wdEndnotesStory)
    changeIt = True
  End If
  If changeIt = True Then
    With rng.Find
      .ClearFormatting
      .Replacement.ClearFormatting
      .Text = "  "
      .Wrap = wdFindContinue
      .Replacement.Text = " "
      .Forward = True
      .MatchCase = True
      .MatchWildcards = False
      .MatchWholeWord = False
      .MatchSoundsLike = False
      .Execute Replace:=wdReplaceAll
    
      .Text = " & "
      .Replacement.Text = " and "
      .Execute Replace:=wdReplaceAll
    
      .Text = "#"
      .Replacement.Text = "^&"
      .Execute Replace:=wdReplaceAll
  
      '.New
      .Text = "etc "
      .Replacement.Text = "etc. "
      .Execute Replace:=wdReplaceAll
    
      .Text = " ie "
      .Replacement.Text = " i.e. "
      .Execute Replace:=wdReplaceAll
      
      .Text = " eg "
      .Replacement.Text = " e.g. "
      .Execute Replace:=wdReplaceAll


      .Replacement.Highlight = True
      
      .Text = "/"
      .Replacement.Text = "/"
      .Execute Replace:=wdReplaceAll
      
      .Replacement.Highlight = False


      .Text = " - "
      .Replacement.Text = " ^= "
      .Execute Replace:=wdReplaceAll
      
      .Text = "^039"
      .Replacement.Text = "'"
      .Execute Replace:=wdReplaceAll
    
      .Text = "^034"
      .Replacement.Text = """"
      .Execute Replace:=wdReplaceAll
      
      .Text = "ly-"
      .Replacement.Text = "ly "
      .Execute Replace:=wdReplaceAll
    End With
  End If
Next i
End Sub