Объект 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 и обратная связь.