Having resolved the problem with (Body) and (Headings) suffixes there is still the problem of (Default) prefix as in “(Default) Times New Roman”.
If I run
Code:
Sub FindFontName()
Selection.Find.ClearFormatting
Selection.Find.Font.Name = "Times New Roman"
Selection.Find.Execute
End Sub
it won’t find “(Default) Times New Roman” fonts. But the following steps will:
1. In F&R click No Formatting then add the font “Times New Roman”
2. In F&R click Find Next to find at least one instance of the font.
3. Now the following VBA macro will find both “Times New Roman” and “(Default) Times New Roman”.
Code:
Sub FindFontName()
Selection.Find.Execute
End Sub
Any views on how I can resolve the issue of the (Default) prefix.