Microsoft Office Forums - View Single Post - [Solved] Find/replace font colour in all header/footer

macropod · 10-20-2015, 02:34 PM

If your document has only one Section, you can use code like:

Code:

Sub Demo()
Application.ScreenUpdating = False
Dim RngStory As Range
For Each RngStory In ActiveDocument.StoryRanges
  With RngStory.Find
    .ClearFormatting
    .Text = ""
    .Font.ColorIndex = wdBlue
    With .Replacement
      .ClearFormatting
      .Text = ""
      .Font.ColorIndex = wdBlack
    End With
    .Forward = True
    .Wrap = wdFindContinue
    .Format = True
    .Execute Replace:=wdReplaceAll
  End With
Next RngStory
Application.ScreenUpdating = True
End Sub