PortraitFontNames 属性

       

返回一个 FontNames 对象,该对象包括所有有效纵向字体的名称。

expression.PortraitFontNames

expression   必需。该表达式返回“应用于”列表中的一个对象。

示例

本示例在插入点插入一组纵向字体。

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