通过

Selection.MoveEndUntil 方法 (Word)

  • 项目

移动指定的所选内容的结束位置，直到在文档中找到任何指定的字符。

语法

expression。 MoveEndUntil( _Cset_ , _Count_ )

expression 是必需的。 表示 Selection 对象的变量。

参数

名称 必需/可选 数据类型 说明
Cset 必需 Variant 一个或多个字符。 此参数区分大小写。
Count 可选 Variant 最大指定所选内容的移动的字符数。 可以是数字或无论是 wdForward 或 wdBackward 。 如果 Count 是一个正数，则所选内容在文档中向前移动。 如果是负数，则向后移动所选内容。 默认值是 wdForward 。

返回值

Long

备注

此方法返回一个 Long 类型的值，该值代表指定的所选内容的结束位置要移动的字符数。 如果 Count 值大于 0 (零)，则此方法返回的数字符移动加 1。 如果 Count 小于 0 (零)，则此方法返回减 1 移动的字符数。 如果没有找到 Cset 字符，所选内容不改变，并且该方法返回 0 (零)。 如果结束位置向后移至原来的起始位置之前，则将该起始位置设置为新的结束位置。

如果是在文档中向前移动，则扩展所选内容。

示例

以下示例在文档中向前扩展所选内容，直到找到字母“a”。 然后将所选文本扩展一个字符，以使其包含字母“a”。

With Selection 
 .MoveEndUntil Cset:="a", Count:=wdForward 
 .MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend 
End With

以下示例在文档中向前扩展所选内容，直到找到制表符。 如果在其后的 100 个字符中没有找到任何制表符，则不移动所选内容。

char = Selection.MoveEndUntil(Cset:=vbTab, Count:=100) 
If char = 0 Then StatusBar = "Selection not moved"

另请参阅

Selection 对象

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。