Поделиться через

Объект FontNames (Word)

  • Статья

Представляет список имен всех доступных шрифтов.

Замечания

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

MsgBox PortraitFontNames.Count & " fonts available"

В этом примере перечислены все имена шрифтов в объекте FontNames в конце активного документа.

For Each aFont In FontNames 
 ActiveDocument.Range.InsertAfter aFont & vbCr 
Next aFont

Используйте FontNames (Index), где Индекс — это номер индекса, чтобы вернуть имя шрифта. В следующем примере отображается имя первого шрифта в объекте FontNames .

MsgBox FontNames(1)

Примечание.

Нельзя добавлять или удалять имена из списка доступных имен шрифтов.

См. также

Справочник по объектной модели Word

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

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