通过

Application.FontNames Property

  • 项目
Word Developer Reference

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.

Visual Basic for Applications 
  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

See Also