PortraitFontNames Property

Microsoft Word Visual Basic

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