本示例减少选定文本的字体大小。

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