Application.LandscapeFontNames Property (Word)

Office 2013 and later

Contribute to this content

Use GitHub to suggest and submit changes. See our guidelines for contributing to VBA documentation.

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

expression .LandscapeFontNames

expression A variable that represents an Application 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