Microsoft Office Forums - View Single Post - Create Word macro to delete text throughout the entire document

gmaxey · 07-06-2022, 11:50 AM

That is because we didn't search in the footnote or endnote story ranges. It also wouldn't find the formatted text in textboxes, headers or footers, comments etc.

Note: Your macros are not processing "real" endnotes.

To search in footnotes and "real" endnotes modify as follows:

Code:

Sub ClearRed1()
Dim oRng As Range
ActiveDocument.TrackRevisions = True
  Selection.Find.ClearFormatting
  Set oRng = ActiveDocument.Range
  With oRng.Find
    With .Font
      .StrikeThrough = True
      .DoubleStrikeThrough = False
      .Color = wdColorRed
    End With
    While .Execute
      oRng.Delete
    Wend
  End With
  On Error Resume Next
  Set oRng = ActiveDocument.StoryRanges(wdFootnotesStory)
  With oRng.Find
    With .Font
      .StrikeThrough = True
      .DoubleStrikeThrough = False
      .Color = wdColorRed
    End With
    While .Execute
      oRng.Delete
    Wend
  End With
  Set oRng = ActiveDocument.StoryRanges(wdEndnotesStory)
  With oRng.Find
    With .Font
      .StrikeThrough = True
      .DoubleStrikeThrough = False
      .Color = wdColorRed
    End With
    While .Execute
      oRng.Delete
    Wend
  End With
  On Error GoTo 0
  ActiveDocument.TrackRevisions = False
lbl_Exit:
  Exit Sub

End Sub