constant indicating whether characters are formatted as superscript in the specified text range. Read/write.
MsoTriState can be one of these MsoTriState constants. |
msoCTrue Does not apply to this property. |
msoFalse No characters in the range are formatted as superscript. |
msoTriStateMixed Return value indicating a combination of msoTrue and msoFalse. |
msoTriStateToggle Set value which toggles between msoTrue and msoFalse. |
msoTrue All characters in the range are formatted as superscript. |
expression.SuperScript
expression Required. An expression that returns one of the objects in the Applies To list.
Remarks
Setting SuperScript property to msoTrue will remove subscript formatting from the text range.
Example
This example tests the text in the second story, and if it has mixed superscripting, it formats all the text as superscript.
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