Expand Minimize

Application.FontNames Property (Word)

Returns a FontNames object that includes the names of all the available fonts. Read-only.

expression .FontNames

expression A variable that represents an Application object.

This example displays the font names in the FontNames collection.

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
© 2015 Microsoft