Range.EndOf メソッド (Word)

  • [アーティクル]

指定範囲の終了位置を、次の指定した構成単位の末尾に移動または拡張します。

構文

expression. EndOf( _Unit_ , _Extend_ )

expression 必須です。 Range オブジェクトを表す変数を指定します。

パラメーター

名前 必須 / オプション データ型 説明
Unit 省略可能 バリアント型 (Variant) 末尾の文字位置を移動する単位です。 すべて 示す wdunits クラス 、 wdLine を除く使用できます。 既定値は、 wdWord です。
Extend 必須 WdMovementType 移動したり、範囲の終了日を延長するかどうかを指定します。 Wdmove を設定 の値が表示された場合、指定範囲または選択範囲の両端は、指定された構成単位の末尾に移動します。 WdExtend を使用する場合は、指定範囲または選択範囲の末尾が、指定された構成単位の末尾に拡張されます。 Wdmove を設定 を既定値には。

注釈

指定範囲または選択範囲が移動または拡張された文字数を返します (移動は文書の末尾方向に行われます)。

指定範囲または選択範囲の開始位置と終了位置が既に指定した単位の末尾にある場合、このメソッドは指定範囲または選択範囲を移動または拡張しません。 たとえば、選択範囲が単語の末尾にあり、末尾のスペースである場合、次の命令は選択範囲を変更しません ( char は 0 (ゼロ) と等しくなります)。

char = Selection.EndOf(Unit:=wdWord, Extend:=wdMove)

例

次の使用例は、選択範囲を段落の末尾まで拡張します。

charmoved = Selection.EndOf(Unit:=wdParagraph, Extend:=wdExtend) 
If charmoved = 0 Then MsgBox "Selection unchanged"

次の使用例は、myRange を選択範囲の最初の単語の末尾 (その直後のスペースの後) に移動します。

Set myRange = Selection.Characters(1) 
myRange.EndOf Unit:=wdWord, Extend:=wdMove

次の使用例は、表を追加し、2 行目の最初のセルを選択し、その選択範囲を最終列まで拡張します。

Set myRange = ActiveDocument.Range(0, 0) 
Set myTable = ActiveDocument.Tables.Add(Range:=myRange, _ 
 NumRows:=5, NumColumns:=3) 
myTable.Cell(2, 1).Select 
Selection.EndOf Unit:=wdColumn, Extend:=wdExtend

関連項目

Range オブジェクト

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

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