通过

Application.PortraitFontNames 属性 (Word)

  • 项目

返回一个 FontNames 对象，该对象包含所有可用的纵向字体的名称。

语法

expression。 PortraitFontNames

expression：表示 Application 对象的变量。

示例

以下示例在插入点插入纵向字体列表。

For Each aFont In PortraitFontNames 
 With Selection 
 .Collapse Direction:=wdCollapseEnd 
 .InsertAfter aFont 
 .InsertParagraphAfter 
 .Collapse Direction:=wdCollapseEnd 
 End With 
Next aFont

另请参阅

Application 对象

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。