Application.FontNames (Word)

Retorna um objeto FontNames que inclui os nomes de todas as fontes disponíveis. Somente leitura.

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