Selection.MoveRight メソッド (Word)
選択範囲を右方向に移動し、移動した単位数を返します。
構文
expression. MoveRight( _Unit_ , _Count_ , _Extend_ )
expression 必須です。 Selection オブジェクトを表す変数を指定します。
パラメーター
| 名前 | 必須 / オプション | データ型 | 説明 |
|---|---|---|---|
| Unit | 省略可能 | WdUnits | 選択範囲を移動する単位を指定します。既定値は wdCharacter です。 |
| Count | 省略可能 | バリアント型 (Variant) | 選択範囲を移動する単位を指定します。 既定値は 1 です。 |
| Extend | 省略可能 | バリアント型 (Variant) | WdMove または wdExtend のいずれかを指定できます。 定数 wdMove を指定すると、範囲の選択が解除され、カーソル位置が終了位置から右方向に移動します。 wdExtend を使用すると、選択範囲は右に拡張されます。 既定値は wdMove です。 |
戻り値
Long
注釈
引数 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
次の例では、選択範囲を 1 文字分右に移動します。 移動に成功した場合、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
関連項目
サポートとフィードバック
Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。