Lister vos polices de caractères sous Word

Pour se faire un « livre de typographie » avec les polices installées sur votre PC, voici un script VB à mettre dans le code des macros d’un document Word vide, dans un Sub de votre convenance :

    Dim i As Integer
    Dim sFont As String
    Dim oDoc As Document
    Dim tFonts() As String
    
    'Listing des polices
    Set oDoc = ActiveDocument
    ReDim tFonts(Application.FontNames.Count)
    For i = 1 To Application.FontNames.Count
        Debug.Print "Ajout police " & i
        tFonts(i) = Application.FontNames(i)
        DoEvents
    Next i

    'Tri des polices dans l'ordre alphabétique    
    For x = 1 To UBound(tFonts)
        Debug.Print x & "/" & UBound(tFonts)
        For y = x + 1 To UBound(tFonts)
          If UCase(tFonts(y)) < UCase(tFonts(x)) Then
            TempTxt1 = tFonts(x)
            TempTxt2 = tFonts(y)
            tFonts(x) = TempTxt2
            tFonts(y) = TempTxt1
          End If
        Next y
        DoEvents
    Next x
    
    'Insertion du nom de la police et d'un texte de test
    For i = 1 To UBound(tFonts)
        
        Debug.Print "Intégration police " & i
        sFont = tFonts(i)
        
        Selection.Font.Name = "Arial"
        Selection.Font.Size = 6
        Selection.TypeText Text:=sFont
        Selection.TypeParagraph
        
        Selection.Font.Name = sFont
        Selection.Font.Size = 20
        Selection.TypeText Text:="ABCabc0123é€"
        Selection.TypeParagraph
        
        DoEvents
        
    Next i