閱讀英文

共用方式為


Publisher (的 Font 物件)

包含物件的字型屬性 (字型名稱、字型大小、色彩等等)。

註解

使用 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

以下範例將使用中出版物中 [標題 2] 的樣式變更為新細明體和粗體。

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 支援與意見反應