Dans les anciennes versions de Word (beaucoup plus anciennes, comme dans Word pour Windows 2), il existait une fonctionnalité qui vous permettait d’imprimer rapidement une liste de polices sur votre système. Malheureusement, ce n’est plus le cas. Vous pouvez cependant créer assez facilement une macro qui peut constituer une telle liste pour vous:

Sub ListFontNames()

Dim J As Integer     Dim NewDoc As Document

' Create a new document     Set NewDoc = Documents.Add

' Add font names to document     For J = 1 To FontNames.Count         Selection.TypeText (FontNames(J))

Selection.TypeParagraph     Next J End Sub

La macro crée un nouveau document, puis parcourt simplement la collection FontNames et ajoute chacun des noms au document. La vitesse à laquelle la macro fonctionne dépend du nombre de polices que vous avez installées sur votre système.

Si vous voulez quelque chose d’un peu plus élaboré, vous pouvez utiliser la macro suivante. Il crée un document, mais place ensuite tous les noms de polices dans un tableau. Dans la deuxième colonne du tableau, il fournit un échantillon formaté de la police.

Sub FontExamples()

Dim J As Integer     Dim F As Integer     Dim sTemp As String     Dim sTest As String     Dim Continue As Integer     Dim rng As Range     Dim FontTable As Table     Dim NewDoc As Document

' Specify the sample text for second column     sTest = "ABCDEFG abcdefg 1234567890"



' Check to see if the user wants to proceed     F = FontNames.Count     sTemp = "There are " & F & " fonts on this system."

sTemp = sTemp & "Building the document may take quite a while."

sTemp = sTemp & "Do you want to continue?"

Continue = MsgBox(sTemp, vbYesNo, "Build Font List")



If Continue = vbYes Then         ' Put together a string that contains the table contents         sTemp = "Font Name" & vbTab & "Font Example"

For J = 1 To F             sTemp = sTemp & vbCr & FontNames(J) & vbTab & sTest         Next J

' Create a new document         Set NewDoc = Documents.Add

' Add string contents and convert to table         Set rng = Selection.Range         rng.Text = sTemp         Set FontTable = rng.ConvertToTable(Separator:=vbTab, _           AutoFitBehavior:=wdAutoFitFixed)



' Set general table properties         With FontTable             .Borders.Enable = False             .Range.Font.Name = "Arial"

.Range.Font.Size = 10             .Rows(1).Range.Font.Bold = True             .Rows(1).Range.Font.Size = 12         End With

' Go through the sample cells and format them         For J = 1 To F             FontTable.Cell(J + 1, 2).Range.Font.Name = FontNames(J)

Next J

' Sort the table         FontTable.Sort SortOrder:=wdSortOrderAscending     End If End Sub

Cette macro fait un peu plus que la précédente. Le tableau lui-même est créé assez rapidement, mais il peut prendre beaucoup de temps pour parcourir chacune des cellules de l’échantillon et le formater en utilisant la police appropriée. C’est pourquoi la macro vous permet de savoir combien de polices sont présentes sur votre système avant de continuer.

Quelle que soit la macro que vous choisissez d’utiliser, vous obtenez une liste complète des polices pour votre système. Vous pouvez ensuite l’imprimer et le garder à portée de main lorsque vous travaillez avec Word.

_Note: _

Si vous souhaitez savoir comment utiliser les macros décrites sur cette page (ou sur toute autre page des sites WordTips), j’ai préparé une page spéciale qui comprend des informations utiles.

lien: / wordribbon-WordTipsMacros [Cliquez ici pour ouvrir cette page spéciale dans un nouvel onglet de navigateur].

WordTips est votre source pour une formation Microsoft Word rentable.

(Microsoft Word est le logiciel de traitement de texte le plus populaire au monde.) Cette astuce (4358) s’applique à Microsoft Word 2007, 2010, 2013 et 2016. Vous pouvez trouver une version de cette astuce pour l’ancienne interface de menu de Word ici: link: / word-Printing_a_Font_List [Impression d’une liste de polices].