FontNames 对象 (Word)
代表一个所有有效字体名称的列表。
使用 FontNames 、 LandscapeFontNames 或 PortraitFontNames 属性返回的 FontNames 对象。 下面的示例显示有效纵排字体的数量。
MsgBox PortraitFontNames.Count & " fonts available"
此示例列出活动文档结尾处的 FontNames 对象中的所有字体名称。
For Each aFont In FontNames
ActiveDocument.Range.InsertAfter aFont & vbCr
Next aFont
使用 FontNames (索引),其中索引,索引号返回的字体的名称。 下面的示例显示 FontNames 对象中的第一个字体名称。
MsgBox FontNames(1)
备注
[!注释] 不能在有效字体列表中添加或删除名称。
有关于 Office VBA 或本文档的疑问或反馈? 请参阅 Office VBA 支持和反馈,获取有关如何接收支持和提供反馈的指南。