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
- AllCaps
- 應用程式
- AttachedToText
- AutomaticPairKerningThreshold
- Bold
- BoldBi
- ContextualAlternates
- DiacriticColor
- ExpandUsingKashida
- Fill
- Glow
- Italic
- ItalicBi
- 字距壓縮微調
- 程式控制
- Line
- 名稱
- NumberStyle
- Parent
- 位置
- Reflection
- 調整大小
- 大小
- SizeBi
- SmallCaps
- StrikeThrough
- StylisticAlternates
- StylisticSets
- SubScript
- SuperScript
- Swash
- TextShadow
- ThreeD
- 追蹤
- TrackingPreset
- Underline
- UseDiacriticColor
有關於 Office VBA 或這份文件的問題或意見反應嗎? 如需取得支援服務並提供意見反應的相關指導,請參閱 Office VBA 支援與意見反應。