Свойство Application.FontNames (Word)

Возвращает объект FontNames , включающий имена всех доступных шрифтов. Только для чтения.

Синтаксис

выражение. FontNames

выражение: переменная, представляющая объект Application.

Пример

В этом примере отображаются имена шрифтов в коллекции FontNames .

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

См. также

Объект Application

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.