Application.LandscapeFontNames Property

Word Developer Reference

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

Syntax

expression.LandscapeFontNames

expression   A variable that represents an Application object.

Example

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

Visual Basic for Applications
  Sub ListLandscapeFonts()
    Dim docNew As Document
    Dim intCount As Integer
Set docNew = Documents.Add
docNew.Content.InsertAfter "Landscape Fonts" & vbLf

For intCount = 1 To <strong class="bterm">LandscapeFontNames</strong>.Count
    docNew.Content.InsertAfter <strong class="bterm">LandscapeFontNames</strong>(intCount) _
        &amp; vbLf
Next

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

Selection.Sort

End Sub

See Also