通过

Font 对象 (Publisher)

  • 项目

包含对象的字体属性（字体名称、字号、颜色等）。

备注

使用 TextStyle.Font 属性可返回 Font 对象。

示例

下面加粗格式应用于所选内容。

Sub BoldText() 
 Selection.TextRange.Font.Bold = True 
End Sub

以下示例将当前出版物中第一段的格式设置为 24 磅、Arial 字体和倾斜。

Sub FormatText() 
 Dim txtRange As TextRange 
 Set txtRange = ActiveDocument.Pages(1).Shapes(1).TextFrame.TextRange 
 With txtRange.Font 
 .Bold = True 
 .Name = "Arial" 
 .Size = 24 
 End With 
End Sub

以下示例将当前出版物中的"Heading 2"样式的格式更改为 Arial 字体和加粗。

Sub FormatStyle() 
 With ActiveDocument.TextStyles("Normal").Font 
 .Name = "Tahoma" 
 .Italic = True 
 .Size = 15 
 End With 
End Sub

还可以使用 TextRange.Duplicate 属性复制 Font 对象。 下面的示例创建新的字符样式以及倾斜格式的所选内容中的字符格式。 不更改所选内容的格式。

Sub DuplicateFont() 
 Dim fntNew As Font 
 Set fntNew = Selection.TextRange.Font.Duplicate 
 fntNew.Italic = True 
 ActiveDocument.TextStyles.Add(StyleName:="Italics").Font = fntNew 
End Sub

方法

属性

另请参阅

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。