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