Свойство Font.Subscript (Word)
Значение true , если шрифт отформатирован как подстрочный. Для чтения и записи, Long.
expression. Индекса
Выражение Выражение, возвращающее объект Font .
Возвращает значение True, False или wdUndefined (сочетание true и false). Можно задать значение True, False или wdToggle.
Присвойте свойству Subscript значение True , присвойте свойству Надстрочный индекс значение False и наоборот.
В этом примере текст вставляется в начало активного документа и форматирует десятый символ как подстрочный.
Set myRange = ActiveDocument.Range(Start:=0, End:=0)
myRange.InsertAfter "Water = H20"
myRange.Characters(10).Font.Subscript = True
В этом примере выполняется проверка выделенного текста на наличие подстрочного форматирования.
If Selection.Type = wdSelectionNormal Then
mySel = Selection.Font.Subscript
If mySel = wdUndefined Or mySel = True Then
MsgBox "Subscript text exists in the selection."
Else
MsgBox "No subscript text in the selection."
End If
Else
MsgBox "You need to select some text."
End If
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.