本示例将所选文本设为上标。

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