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