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