Question

Application FontNames

代表一个所有有效字体名称的列表。

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

说明

不能在有效字体列表中添加或删除名称。