将所选内容向右移动,并返回移动距离的单位数。
expression.MoveRight(Unit, Count, Extend)
expression 必需。该表达式返回一个 Selection 对象。
Unit WdUnits,可选。所选内容移动距离的度量单位。
可以是下列 WdUnits 常量。
wdCell
wdCharacter
wdWord
wdSentence
默认值为 wdCharacter。
Count Variant 类型,可选。所选内容移动距离的单位数。默认值是 1。
Extend Variant 类型,可选。可以是 wdMove 或 wdExtend。如果为 wdMove,则所选内容折叠到结束位置,并向右移动。如果为 wdExtend,则所选内容向右扩展。默认值是 wdMove。
如果 Unit 为 wdCell,则 Extend 参数只能是 wdMove。
本示例将所选内容移至前一个域之前,然后选定该域。
With Selection
Set MyRange = .GoTo(wdGoToField, wdGoToPrevious)
.MoveRight Unit:=wdWord, Count:=1, Extend:=wdExtend
If Selection.Fields.Count = 1 Then Selection.Fields(1).Update
End With
本示例将所选内容向右移动一个字符。如果移动成功,则 MoveRight 方法返回 1。
If Selection.MoveRight = 1 Then MsgBox "Move was successful"
本示例将所选内容移至表格的下一个单元格。
If Selection.Information(wdWithInTable) = True Then
Selection.MoveRight Unit:=wdCell, Count:=1, Extend:=wdMove
End If