Объект 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
- AllCaps
- Application
- AttachedToText
- AutomaticPairKerningThreshold
- Bold
- BoldBi
- ContextualAlternates
- DiacriticColor
- ExpandUsingKashida
- Fill
- Glow
- Italic
- ItalicBi
- Kerning
- Ligature
- Line
- Name
- NumberStyle
- Parent
- Position
- Reflection
- Scaling
- Size
- SizeBi
- SmallCaps
- StrikeThrough
- StylisticAlternates
- StylisticSets
- SubScript
- SuperScript
- Swash
- TextShadow
- ThreeD
- Tracking
- TrackingPreset
- Underline
- UseDiacriticColor
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.