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