FontNames, objet (Word)

Représente une liste des noms de toutes les polices disponibles.

Remarques

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)

Remarque

Vous ne pouvez ni ajouter ni supprimer des noms dans la liste des polices disponibles.

Voir aussi

Référence du modèle objet Word

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.