Find/Replace with special characters

[Yeager]

The following snippet of code will replace occurences of
these SGML entities with special characters that are
pretty close to the original output:

' Entities
' Handles &circle; entity
Selection.HomeKey unit:=wdStory
With Selection.Find
.ClearFormatting
.MatchWildcards = False
.Text = "&circle;"
While .Execute
Selection.Range.InsertSymbol _
Font:="Wingdings 2", CharacterNumber:=-3943, _
Unicode:=True
Wend
End With

' Handles • entity
Selection.HomeKey unit:=wdStory
With Selection.Find
.ClearFormatting
.MatchWildcards = False
.Text = "•"
While .Execute
Selection.Range.InsertSymbol _
Font:="Wingdings 2", CharacterNumber:=-3944, _
Unicode:=True
Wend
End With

So far so good. But how can I code this so that
occurences of these entities are replaced in the
header/footer?

-Yeager

 

[Jay Freedman]

Hi, Yeager,

Have a look at
http://www.mvps.org/word/FAQs/MacrosVBA/FindReplaceAllWithVBA.htm.