本示例将所选内容结尾后移一个字符(即将所选区域缩小一个字符)。
Selection.MoveEnd Unit:=wpsCharacter, Count:=-1