Global.LandscapeFontNames Property (Word)

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


expression. LandscapeFontNames

expression Required. A variable that represents a 'Global' object.


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 
 With docNew 
 .Range(Start:=.Paragraphs(2).Range.Start, End:=.Paragraphs _ 
 End With 
End Sub

See also

Global Object