Superscript Property Example

This example inserts text at the beginning of the active document and formats two characters in the fourth word as superscript.

Set myRange = ActiveDocument.Range(Start:=0, End:=0)
myRange.InsertAfter "Superscript in the 4th word."
ActiveDocument.Range(Start:=20, End:=22).Font.Superscript = True

This example formats the selected text as superscript.

If Selection.Type = wdSelectionNormal Then
    Selection.Font.Superscript = True 
Else
    MsgBox "You need to select some text."
End If