I am trying to develop a macro that will change certain characters () into other characters (letters with macrons rather than circumflexes) AS LONG AS THE CHARACTERS ARE NOT in a certain set of fonts (e.g., the fonts that come with BW, or any other non-Unicode fonts).

So, I know that the following will select ONLY bwgrkl characters:

With ActiveDocument.Content.Find
.ClearFormatting
.Font.Name = "Bwgrkl"
.MatchCase = True
.Text = ChrW(274) 'E w. macron bwgrkl
With .Replacement
.ClearFormatting
.Font.Name = "Bwgrkl"
.Text = ChrW(202)
End With
.Execute Format:=True, Replace:=wdReplaceAll
End With


What I DON'T know how to do is define the font using some sort of "NOT" expression in Visual Basic--so that only fonts OTHER than bwgrkl, bwhebb, bwtransh, etc. are selected for the find and replace.

Any ideas?