Propriété Global.LandscapeFontNames (Word)

  • Article

Renvoie un objet FontNames qui inclut les noms de toutes les polices paysage disponibles.

Syntaxe

expression. LandscapeFontNames

expression Obligatoire. Variable qui représente un objet « Global ».

Exemple

Cet exemple crée une liste triée dans un nouveau document des noms de police paysage de l'objet FontNames.

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

Voir aussi

Objet global

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.