本示例将所选内容扩展至段落结尾。

charmoved = Selection.EndOf(Unit:=wpsParagraph, Extend:=wpsExtend)
If charmoved = 0 Then
    MsgBox "Selection unchanged"
End If