共用方式為


Word) (Application.FontNames 屬性

會傳回包含所有可用字型之名稱的 FontNames 物件。 唯讀。

語法

expressionFontNames

expression 代表 Application 物件的變數。

範例

本範例會顯示 FontNames 集合中的字型名稱。

Dim strFont As String 
Dim intResponse As Integer 
 
For Each strFont In FontNames 
 intResponse = MsgBox(Prompt:=strFont, Buttons:=vbOKCancel) 
 If intResponse = vbCancel Then Exit For 
Next strFont

另請參閱

Application 物件

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎? 如需取得支援服務並提供意見反應的相關指導,請參閱 Office VBA 支援與意見反應