À l'aide d'une petite macro :

Public Sub ListePolice()
Dim MaListe, sFont
For Each sFont In FontNames
With ActiveDocument.Content.Find
.ClearFormatting
.Format = True
.Text = ""
.Font.Name = sFont
If .Execute() Then
MaListe = MaListe & sFont & vbCr
End If
End With
Next sFont
MsgBox MaListe
End Sub