Export (0) Print
Expand All
Expand Minimize

Application.LandscapeFontNames Property (Word)

Published: July 16, 2012

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

Community Additions

ADD
Show:
© 2014 Microsoft