Partager via

Propriété Application.LandscapeFontNames (Word)

  • Article

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

Syntaxe

expression. LandscapeFontNames

expressionUne variable qui représente un objetApplication.

Exemple

Cet exemple montre comment créer un document contenant une liste triée 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 Application

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.