Application.FontNames Property (Word)
Returns a FontNames object that includes the names of all the available fonts. Read-only.
Syntax
expression .FontNames
expression A variable that represents an Application object.
Example
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