object that includes the names of all the available portrait fonts.
expression.PortraitFontNames
expression Required. An expression that returns one of the objects in the Applies To list.
Example
This example inserts a list of portrait fonts at the insertion point.
For Each aFont In PortraitFontNames
With Selection
.Collapse Direction:=wdCollapseEnd
.InsertAfter aFont
.InsertParagraphAfter
.Collapse Direction:=wdCollapseEnd
End With
Next aFont