Word) (FontNames 物件
代表所有可用之字型的名稱清單。
使用 FontNames 、 LandscapeFontNames 或 PortraitFontNames 屬性可傳回 FontNames 物件。 下列範例會顯示可用直向字型數目。
MsgBox PortraitFontNames.Count & " fonts available"
此範例會列出使用中文件的結尾 FontNames 物件中的所有字型名稱。
For Each aFont In FontNames
ActiveDocument.Range.InsertAfter aFont & vbCr
Next aFont
使用可傳回字型名稱的 FontNames (Index),其中 Index 是索引編號。 下列範例會顯示 FontNames 物件中的第一個的字型名稱。
MsgBox FontNames(1)
注意
[!注意事項] 您無法在可用的字型名稱清單中新增名稱或移除名稱。
有關於 Office VBA 或這份文件的問題或意見反應嗎? 如需取得支援服務並提供意見反應的相關指導,請參閱 Office VBA 支援與意見反應。