Avec une macro :

Sub ListePolicesInstallées()
Dim ma_phrase As String
ma_phrase = InputBox("Saisissez votre phrase ici")
If ma_phrase = "" Then Exit Sub
Documents.Add
For Each PolicesCar In FontNames
With Selection
     .InsertAfter ma_phrase
     .Font.Name = PolicesCar
     .Font.Size = 10
     .InsertAfter vbTab & PolicesCar & vbCrLf
     .MoveStartUntil vbTab
     .Font.Name = "Arial"
     .MoveDown wdParagraph, 1
End With
Next
End Sub