Find and Replace in body of document and Footnotes

[Bernadette]

Thanks so much Greg. It worked!

Sub FindAndReplaceFirstStoryOfEachType()
  Dim rngStory As Range
  For Each rngStory In ActiveDocument.StoryRanges
    With rngStory.Find
        .Font.Color = wdColorRed
        .Replacement.Font.Color = wdColorAutomatic
        .Wrap = wdFindContinue
        .Execute Replace:=wdReplaceAll
    End With
  Next rngStory
End Sub