Sujet Précédent Sujet Suivant

Visionner toutes les polices de word

ianou84 -  
pijaku Messages postés 13513 Date d'inscription   Statut Modérateur Dernière intervention   -
Bonjour,
j'aimerais bien visionner d'un seul coup toutes les polices de word plutôt que d'avoir à chercher en ouvrant l'un aprés l'autre chaque nom correspondant à une police différente , c'est fastidieux ...... existe t il un moyen de le faire sur word , ou bien un lien ...
merci d'avance .

A voir également:

1 réponse

Réponse 1 / 1
pijaku Messages postés 13513 Date d'inscription   Statut Modérateur Dernière intervention   2 768
 
Bonjour,

Par macro : 
Sub ListFonts()
Dim varFont As Variant
Application.ScreenUpdating = False
' Crée un nouveau document sur la base du normal.dot
Documents.Add Template:="normal"
' fait une boucle sur chaque fonte
For Each varFont In FontNames
With Selection
.Font.Name = "times new roman"
.Font.Bold = True
.Font.Underline = True
.TypeText varFont
.InsertParagraphAfter
.MoveDown unit:=wdParagraph, Count:=1, Extend:=wdMove
.Font.Bold = False
.Font.Underline = False
.Font.Name = varFont
' entre un exemple de texte (les lettres de l'alphabet)
.TypeText "abcdefghijklmnopqrstuvwxyzéèùîù"
.InsertParagraphAfter
.MoveDown unit:=wdParagraph, Count:=1, Extend:=wdMove
' Insert example text(les caractères numériques)
.TypeText "0123456789?$%&()[]*_-=+/<>"
.InsertParagraphAfter
.InsertParagraphAfter
.MoveDown unit:=wdParagraph, Count:=1, Extend:=wdMove
End With
Next varFont
Application.ScreenUpdating = True
End Sub

Sources..............
0