Visionner toutes les polices de word
ianou84
-
pijaku Messages postés 13513 Date d'inscription Statut Modérateur Dernière intervention -
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 .
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 .
1 réponse
-
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..............
