Прочитать на английском

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


Объект Font (publisher)

Содержит атрибуты шрифта (имя шрифта, размер шрифта, цвет и т. д.) для объекта.

Замечания

Используйте свойство TextStyle.Font , чтобы вернуть объект Font .

Пример

В следующей инструкции к выделенному фрагменту применяется полужирное форматирование.

Sub BoldText() 
 Selection.TextRange.Font.Bold = True 
End Sub

В следующем примере первый абзац активной публикации форматирует как arial из 24 пунктов и курсив.

Sub FormatText() 
 Dim txtRange As TextRange 
 Set txtRange = ActiveDocument.Pages(1).Shapes(1).TextFrame.TextRange 
 With txtRange.Font 
 .Bold = True 
 .Name = "Arial" 
 .Size = 24 
 End With 
End Sub

В следующем примере изменяется форматирование стиля Заголовок 2 в активной публикации на Arial и полужирным шрифтом.

Sub FormatStyle() 
 With ActiveDocument.TextStyles("Normal").Font 
 .Name = "Tahoma" 
 .Italic = True 
 .Size = 15 
 End With 
End Sub

Можно также дублировать объект Font с помощью свойства TextRange.Duplicate . В следующем примере создается новый стиль символа с форматированием символов из выделенного фрагмента в дополнение к курсиву. Форматирование выделенного фрагмента не изменяется.

Sub DuplicateFont() 
 Dim fntNew As Font 
 Set fntNew = Selection.TextRange.Font.Duplicate 
 fntNew.Italic = True 
 ActiveDocument.TextStyles.Add(StyleName:="Italics").Font = fntNew 
End Sub

Методы

Свойства

См. также

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

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