LandscapeFontNames Property

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

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