Range.EndOf 方法 (Word)
将区域的结束字符位置移动或扩展到最近的一个指定文本单位末尾。
expression。 EndOf
( _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
有关于 Office VBA 或本文档的疑问或反馈? 请参阅 Office VBA 支持和反馈,获取有关如何接收支持和提供反馈的指南。