Sub main()
Set myRange = ActiveDocument.Range(Start:=0, End:=0)
myRange.InsertAfter "22=4 33=27."
ActiveDocument.Characters(2).Font.Superscript = True
ActiveDocument.Characters(8).Font.Superscript = True
Dim i As Integer, x As String
For i = 1 To ActiveDocument.Characters.Count
If ActiveDocument.Characters(i).Font.Superscript = True Then x = x & vbCrLf & i
Next
MsgBox x, vbOKCancel, "上标字符位置"
Set myRange = ActiveDocument.Range(Start:=2, End:=2)
myRange.InsertAfter "(上标后)"
Set myRange = ActiveDocument.Range(Start:=12, End:=12)
myRange.InsertBefore "(上标前)"
End Sub