Selection.MoveEndUntil メソッド (Word)

文書内で指定された文字のいずれかが見つかるまで、指定された選択範囲の終了位置を移動します。

構文

expression. MoveEndUntil( _Cset_ , _Count_ )

: 必ず指定します。 Selection オブジェクトを表す変数を指定します。

パラメーター

名前 必須 / オプション データ型 説明
Cset 必須 Variant 1 文字または複数の文字を指定します。 この引数は大文字と小文字を区別します。
Count 省略可能 Variant 指定された選択範囲が移動するのには、文字の最大数です。 数値または wdForward または wdBackward のいずれかを指定できます。 カウントが正の数値の場合は、選択範囲は文書の前方に移動します。 負の数値の場合は、選択範囲は先頭方向に移動します。 既定値は wdForward です。

戻り値

Long

解説

このメソッドは 、指定した 選択範囲の終了位置を移動した文字数を表す長い値を返します。 カウントが 0 (ゼロ) より大きい場合は、このメソッドは 1 を足した数移動した文字数を返します。 カウントが 0 (ゼロ) 未満の場合は、このメソッドは 1 を引いた移動した文字数を返します。 Cset の文字が見つからない場合、選択範囲が変更されていないし、メソッドは 0 (ゼロ) を返します。 文書の先頭方向に移動したために、終了位置が元の開始位置より前になる場合、その終了位置が新しい開始位置になります。

検索方向が下方向である場合、選択範囲は拡張します。

次の使用例は、文字 "a" が見つかるまで、選択範囲を文書の末尾方向に拡張します。 文字 "a" まで選択範囲を 1 文字分拡張します。

With Selection 
 .MoveEndUntil Cset:="a", Count:=wdForward 
 .MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend 
End With

次の使用例は、タブ記号が見つかるまで、選択範囲を末尾方向に拡張します。 次の 100 文字以内でタブ記号が見つからない場合、選択範囲は移動しません。

char = Selection.MoveEndUntil(Cset:=vbTab, Count:=100) 
If char = 0 Then StatusBar = "Selection not moved"

関連項目

Selection オブジェクト

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか? サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。