Hi scienceguy
If you execute:
then the font name will change from "Calibri (Body)" to "Calibri"
There is an interaction with Office Find & Replace (CTRL+H).
If you execute:
Code:
Sub SetFontName()
Selection.Find.ClearFormatting
Selection.Find.Font.Name = "Calibri"
Selection.Find.Execute
End Sub
then it doesn't find text with "Calibri (Body)"but F&R now has under "Find what:" the Format font "(Default) Calibri". F&R will now find "Calibri" but not "Calibri (Body".
It all doesn't help me with my task.