Свойство Font.SubScript (Publisher)

Возвращает или задает констанду MsoTriState , указывающую, отформатированы ли символы как подстрочные в указанном текстовом диапазоне. Для чтения и записи.

Синтаксис

expression. Подстрочный

выражение Переменная, представляющая объект Font .

Возвращаемое значение

MsoTriState

Замечания

Значение свойства SubScript может быть одной из констант MsoTriState , объявленных в библиотеке типов Microsoft Office и показанных в следующей таблице.

Константа	Описание
msoFalse	Символы в диапазоне не форматируются как подстрочные символы.
msoTriStateMixed	Возвращаемое значение, указывающее сочетание msoTrue и msoFalse для указанного диапазона фигур.
msoTriStateToggle	Заданное значение, которое переключается между msoTrue и msoFalse.
msoTrue	Все символы в диапазоне форматируются как подстрочные знаки.

Если для свойства SubScriptзадано значение msoTrue , форматирование надстрочных индексов удаляется из текстового диапазона.

Пример

В этом примере проверяется текст во второй истории, и если он имеет смешанный подстрок, он форматирует весь текст как подстрочный.

Sub SubScript() 
 
 Dim fntSS As Font 
 
 Set fntSS = Application.ActiveDocument.Stories(2).TextRange.Font 
 With fntSS 
 If .SubScript = msoTriStateMixed Then 
 .SubScript = msoTrue 
 Else 
 MsgBox "Mixed subscript not in this story." 
 End If 
 End With 
 
End Sub

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

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