PortraitFontNames Property

Returns a FontNames object that includes the names of all the available portrait fonts.

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