本示例检查所选文本的下标格式。

If Selection.Type = wpsSelectionNormal Then
    mySel = Selection.Font.Subscript
        If mySel = wpsUndefined Or mySel = True Then
            MsgBox "Subscript text exists in the selection."
        Else
            MsgBox "No subscript text in the selection."
        End If
Else
    MsgBox "You need to select some text."
End If