Application.FontNames (Word)
Devuelve un objeto FontNames que incluye los nombres de todas las fuentes disponibles.
Dim strFont As String
Dim intResponse As Integer
For Each strFont In FontNames
intResponse = MsgBox(Prompt:=strFont, Buttons:=vbOKCancel)
If intResponse = vbCancel Then Exit For
Next strFont