Macro pour générer la liste des polices disponibles dans Word

Cet article peut contenir des liens vers des informations en langue anglaise (pas encore traduites).

Résumé

Cet article contient une macro Visual Basic pour Applications (VBA) qui génère la liste des polices disponibles dans Microsoft Word et affiche un échantillon de chaque police.

La liste de polices générée par cette macro varie en fonction de l'imprimante sélectionnée dans la boîte de dialogue Imprimer.

Plus d'informations

Microsoft fournit des exemples de programmation à titre indicatif uniquement, sans garantie explicite ou implicite. Cela inclut notamment les garanties implicites de qualité ou d'adéquation à un usage particulier. Pour bien comprendre cet article, vous devez connaître le langage de programmation présenté et les outils utilisés pour créer et déboguer des procédures. Les techniciens du Support technique Microsoft peuvent vous expliquer les fonctionnalités d'une procédure particulière, mais ils ne modifieront pas ces exemples pour vous fournir des fonctionnalités supplémentaires ou créer des procédures répondant à vos besoins spécifiques.
L'exemple de macro Visual Basic pour Applications (VBA) suivant crée un nouveau document, puis insère un échantillon de chaque police disponible :
Sub ListFonts()

Dim varFont As Variant
' Speeds macro processing and suppresses display.
Application.ScreenUpdating = False
' Create new document.
Documents.Add Template:="normal"

' Loop through each available font.
For Each varFont In FontNames
With Selection
' Format for name of font.
.Font.Name = "times new roman"
.Font.Bold = True
.Font.Underline = True
' Insert Font name.
.TypeText varFont
' Insert a new paragraph after the Font Name.
.InsertParagraphAfter
' Move to the new paragraph.
.MoveDown unit:=wdParagraph, Count:=1, Extend:=wdMove
' Format for the font example.
.Font.Bold = False
.Font.Underline = False
.Font.Name = varFont
' Enter example text(Alphabetic characters.)
.TypeText "abcdefghijklmnopqrstuvwxyz"
' Insert a new paragraph.
.InsertParagraphAfter
' Move to the new paragraph.
.MoveDown unit:=wdParagraph, Count:=1, Extend:=wdMove
' Insert example text(Numeric characters.)
.TypeText "0123456789?$%&()[]*_-=+/<>"
' Insert two new paragraphs and move down.
.InsertParagraphAfter
.InsertParagraphAfter
.MoveDown unit:=wdParagraph, Count:=1, Extend:=wdMove
End With

Next varFont
Application.ScreenUpdating = True

End Sub

Pour plus d'informations sur la procédure à suivre pour utiliser l'exemple de code de cet article, cliquez sur le numéro ci-dessous pour afficher l'article correspondant dans la Base de connaissances Microsoft.

212536 Comment faire pour exécuter un exemple de code tiré d'un article de la Base de connaissances dans Office 2000

Références

Pour plus d'informations sur la procédure à suivre pour obtenir de l'aide sur Visual Basic pour Applications, cliquez sur les numéros ci-dessous pour afficher les articles correspondant dans la Base de connaissances Microsoft.

212623 Ressources de programmation de macro

226118 Liste des ressources disponibles pour vous aider à apprendre la programmation de Visual Basic pour Applications

Propriétés

ID d'article : 209205 - Dernière mise à jour : 11 oct. 2006 - Révision : 1

Commentaires