Application.FontNames (Word)

Renvoie un objet FontNames qui inclut les noms de toutes les polices 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