Question

多种对象 Font 多种对象

该对象包含了各种字体属性（字体名称、字体大小、颜色等）。

使用 Font 对象

用 Font 属性可返回 Font 对象。下列指令将选定内容的格式设置为加粗。

Selection.Font.Bold = True

下列示例将活动首段的格式设置为 24 磅、Arial 和倾斜。

Set myRange = ActiveDocument.Paragraphs(1).Range
With myRange.Font
 .Bold = True
 .Name = "Arial"
 .Size = 24
End With

下列示例将活动文档中“标题 2”的样式更改为 Arial 字体和加粗。

With ActiveDocument.Styles(wdStyleHeading2).Font
 .Name = "Arial"
 .Italic = True
End With

说明

可用关键字“New”来创建一个独立应用的新 Font 对象。下列示例先创建一个 Font 对象，再设置一些格式属性，然后将该 Font 对象应用于活动文档的首段。

Set myFont = New Font
myFont.Bold = True
myFont.Name = "Arial"
ActiveDocument.Paragraphs(1).Range.Font = myFont

用 Duplicate 属性可复制 Font 对象。下列示例创建一个新的字符样式，该样式除具有选定内容中的字符格式外还具有倾斜格式。而选定内容的格式并没有改变。

Set aFont = Selection.Font.Duplicate
aFont.Italic = True
ActiveDocument.Styles.Add(Name:="Italics", _
 Type:=wdStyleTypeCharacter).Font = aFont