Свойство Font.SuperScript (издатель)

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

Синтаксис

expression. Надстрочный

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

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

MsoTriState

Замечания

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

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

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

Пример

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

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

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

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