返回一个 FontNames 对象,该对象包括所有有效纵向字体的名称。
expression.PortraitFontNames
expression 必需。该表达式返回“应用于”列表中的一个对象。
本示例在插入点插入一组纵向字体。
For Each aFont In PortraitFontNames
With Selection
.Collapse Direction:=wdCollapseEnd
.InsertAfter aFont
.InsertParagraphAfter
.Collapse Direction:=wdCollapseEnd
End With
Next aFont