FontNames, objet (Word)
Représente une liste des noms de toutes les polices disponibles.
Pour renvoyer l'objet FontNames, utilisez la propriété FontNames, LandscapeFontNames ou PortraitFontNames. L'exemple suivant montre comment afficher le nombre de polices de type portrait disponibles.
MsgBox PortraitFontNames.Count & " fonts available"
L'exemple suivant montre comment répertorier tous les noms de police contenus dans l'objet FontNames à la fin du document actif.
For Each aFont In FontNames
ActiveDocument.Range.InsertAfter aFont & vbCr
Next aFont
Utilisez FontNames (Index), où Index est le numéro d’index, pour renvoyer le nom d’une police. L'exemple suivant montre comment afficher le nom de police qui figure en première position dans l'objet FontNames.
MsgBox FontNames(1)
Notes
Vous ne pouvez ni ajouter ni supprimer des noms dans la liste des polices disponibles.
Référence du modèle objet Word
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.