Freigeben über

Application.LandscapeFontNames-Eigenschaft (Word)

  • Artikel

Gibt ein FontNames-Objekt zurück, das die Namen aller verfügbaren Querformatschriftarten enthält.

Syntax

Ausdruck. LandscapeFontNames

expression Eine Variable, die ein Application-Objekt darstellt.

Beispiel

In diesem Beispiel wird in einem neuen Dokument eine sortierte Liste der Namen der Schriftarten im FontNames-Objekt erstellt.

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

Siehe auch

Application-Objekt

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.