本示例切换活动文档中第一段的 Arial 和 Times New Roman 字体。

Set myRange = ActiveDocument.Paragraphs(1).Range
If myRange.Font.Name = "Times New Roman" Then
    myRange.Font.Name = "Arial"
Else
    myRange.Font.Name = "Times New Roman"
End If