Font 属性

返回或设置 Font 对象，该对象代表指定对象的字符格式。如要设置本属性，就要指定一个返回 Font 对象的表达式。Font 类型，可读写。

示例

本示例将取消活动文档的“标题 1”样式中的加粗格式。

ActiveDocument.Styles(wdStyleHeading1).Font.Bold = False

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

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

本示例显示选定文本的字体。

MsgBox Selection.Font.Name

本示例将选定文本的字符格式应用于活动文档的第一段。

Set myFont = Selection.Font.Duplicate
ActiveDocument.Paragraphs(1).Range.Font = myFont

本示例查找下一处 Times New Roman 字体格式的文本。

With Selection.Find
    .ClearFormatting
    .Font.Name = "Times New Roman"
    .Execute FindText:="", ReplaceWith:="", Format:=True, _
        Forward:=True
End With