LandscapeFontNames Property

Microsoft Word Visual Basic

object that includes the names of all the available landscape fonts.

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