Application.FontNames (Word)

Gibt ein FontNames -Objekt zurück, das die Namen aller verfügbaren Schriftarten enthält.

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