Word VBA教程:EndOf方法

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

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)

VBA示例

本示例将所选内容扩展至段落结尾。


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

Word VBA教程

Word VBA参考教程:目录1 Word VBA参考教程:目录2
Word VBA参考教程:目录3 Word VBA参考教程:目录4
Word VBA参考教程:目录5 Word VBA参考教程:目录6
Word VBA参考教程:目录7 Word VBA参考教程:目录8
Word VBA参考教程:目录9 Word VBA参考教程:目录10
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号