Range.EndOf 方法 (Word)

将区域的结束字符位置移动或扩展到最近的一个指定文本单位末尾。

语法

expressionEndOf( _Unit_ , _Extend_ )

expression 是必需的。 一个代表 Range 对象的变量。

参数

名称 必需/可选 数据类型 说明
Unit 可选 Variant 结束字符位置移至的单元。 可以是任何 ,除 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

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

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 支持和反馈,获取有关如何接收支持和提供反馈的指南。