Свойство Font.Bold (Publisher)
Возвращает или задает констанду MsoTriState , представляющую состояние свойства Bold для символов в текстовом диапазоне. Для чтения и записи.
expression. Смелые
Выражение Переменная, представляющая объект Font .
MsoTriState
Значение свойства Bold может быть одной из следующих констант MsoTriState , объявленных в библиотеке типов Microsoft Office.
Константа | Описание |
---|---|
msoFalse | Ни один из символов в диапазоне не отформатирован как полужирный. |
msoTriStateMixed | Возвращаемое значение, указывающее, что диапазон содержит текст, отформатированный полужирным шрифтом, а текст не полужирный. |
msoTriStateToggle | Заданное значение, переключающееся между msoTrue и msoFalse. |
msoTrue | Все символы в диапазоне отформатированы полужирным шрифтом. |
В этом примере проверяется весь текст во втором материале активной публикации. Если он содержит как полужирный, так и не полужирный текст, он задает для всего текста полужирный шрифт. Если весь текст выделен полужирным шрифтом или не является полужирным, отображается сообщение, информирующее пользователя о том, что смешанный полужирный шрифт отсутствует. Для правильного выполнения этого кода в активной публикации должно быть две или более историй с текстом.
Sub BoldStory()
Dim stf As Publisher.Font
Set stf = Application.ActiveDocument.Stories(2).TextRange.Font
With stf
If .Bold = msoTriStateMixed Then
.Bold = msoTrue
Else
MsgBox "Mixed bolding is not in this story."
End If
End With
End Sub
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.