LandscapeFontNames Property

expression.LandscapeFontNames

expression    Required. An expression that returns one of the objects in the Applies To list.

Example

This example creates a sorted list in a new document of the landscape font names in the FontNames object.

Sub ListLandscapeFonts()
    Dim docNew As Document
    Dim intCount As Integer

    Set docNew = Documents.Add
    docNew.Content.InsertAfter "Landscape Fonts" & vbLf

    For intCount = 1 To LandscapeFontNames.Count
        docNew.Content.InsertAfter LandscapeFontNames(intCount) _
            & vbLf
    Next

    With docNew
        .Range(Start:=.Paragraphs(2).Range.Start, End:=.Paragraphs _
            (docNew.Paragraphs.Count).Range.End).Select
    End With

    Selection.Sort
End Sub