SuperScript Property

Returns or sets an MsoTriState 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