MoveEndUntil 方法

移动指定区域或所选内容的结束位置，直到在文档中找到任何指定的字符。如果在文档中是向前移动，则扩展该区域或所选内容。

说明

本方法将区域或所选内容的结束位置的移动字符数以 Long 类型返回。如果 Count 大于 0，则本方法返回移动字符数加 1 的值。如果 Count 小于 0，则本方法返回移动字符数减 1 的值。如果没有找到 Cset 字符，则不改变区域或所选内容，并且本方法返回 0。如果结束位置向后移动并超过原来的开始位置，则将开始位置设置为新的结束位置。

expression   必需。该表达式返回一个 Range 或 Selection 对象。

Cset   Variant 类型，必需。一个或多个字符。该参数区分大小写。

Count   Variant 类型，可选。指定区域或所选内容移动的最大字符数。可以取一个数值，也可取 wdForward 或 wdBackward 常量之一。如果 Count 是正数，则区域或所选内容在文档中向前移动。如果 Count 是负数，则区域或所选内容向后移动。默认值为 wdForward。

示例

本示例在文档中向前扩展所选内容，直到找到字母“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"