本示例将所选内容向下扩展一行。

Selection.MoveDown Unit:=wpsLine, Count:=1, Extend:=wpsExtend

 

本示例将所选内容向下移动三个段落。如果移动成功,则在插入点插入“Company”。

unitsMoved = Selection.MoveDown(Unit:=wpsParagraph, _
    Count:=3, Extend:=wpsMove)
If unitsMoved = 3 Then
    Selection.Text = "Company"
End If