Word) (Application.FontNames 属性

返回一个 FontNames 对象，该对象包含所有有效字体的名称。 只读。

语法

expression。 FontNames

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 支持和反馈，获取有关如何接收支持和提供反馈的指南。