Word) (Selection.EndOf 方法
將某個範圍或選取項目的結束字元位置移動或延伸至最接近指定文字單位的結尾。
語法
expression。 EndOf( _Unit_ , _Extend_ )
需要 expression。 代表 Selection 物件的變數。
參數
| 名稱 | 必要/選用 | 資料類型 | 描述 |
|---|---|---|---|
| Unit | 選用 | Variant | 代表用來單位移動結束字元位置。 WdUnits。 |
| Extend | 選用 | Variant | 可以是其中 WdMovementType 常數。 如果 wdMove 、 range 或 selection 物件的兩個端點移至指定單位的結尾。 如果使用 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
這則範例會加入一個表格、選取第二列中的第一個儲存格，然後將選取項目延伸至該欄的結尾。
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 支援與意見反應。