Selection.EndOf メソッド (Word)
指定範囲または選択範囲の末尾の文字位置を、指定された文字列の単位のうち、最も近い単位の末尾まで移動または拡張します。
構文
expression. EndOf( _Unit_ , _Extend_ )
expression 必須です。 Selection オブジェクトを表す変数を指定します。
パラメーター
| 名前 | 必須 / オプション | データ型 | 説明 |
|---|---|---|---|
| Unit | 省略可能 | バリアント型 (Variant) | 末尾の文字位置を移動する単位です。 WdUnits。 |
| Extend | 省略可能 | バリアント型 (Variant) | 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
関連項目
サポートとフィードバック
Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。