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