Question

将区域或所选内容的结束字符位置移动或扩展至最近的一个指定文本单元末尾。本方法返回该区域或所选内容所移动或扩展的字符位置数（移动方向为向前）。

expression.EndOf(Unit,Extend)

expression 必需。该表达式返回“应用于”列表中的一个对象。

Unit Variant 类型，可选。结束字符位置移至的单元。WdUnits。

可以是下列 WdUnits 常量之一：

wdCharacter

wdWord

wdSentence

wdParagraph

wdSection

wdStory

wdCell

wdColumn

wdRow

wdTable.

如果expression 的返回值为一个 Selection 对象, 也可以使用 wdLine。默认值为 wdWord。

Extend Variant 类型，可选。WdMovementType。

可以是下列WdMovementType 常量之一：

wdMove

wdExtend

如为 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

本示例先添加一个表格，选择第二行第一个单元，再将所选内容扩展到列末。

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