Word VBA教程:MoveUntil方法

移动指定区域或选定内容,直到在文档中找到一个指定的字符。

expression.MoveUntil(Cset, Count)

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

Cset   Variant 类型,必需。一个或多个字符。如果在 Count 值结束之前,找到了 Cset 中的任何字符,则指定区域或选定内容作为一个插入点紧靠在该字符之前。此参数区分大小写。

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

说明

本方法将区域或选定内容的移动的字符数以 Long 类型的值返回。如果 Count 大于 0(零),则本方法返回字符数加 1;如果 Count 小于 0(零),则本方法返回字符数减 1。如果没有找到 Cset 字符,则不改变区域或选定内容,返回 0(零)。

VBA示例

本示例在文档中将myRange 向前移动 100 个字符,直到找到字母“t”。


Set myRange = ActiveDocument.Words(1)
myRange.MoveUntil Cset:="t", Count:=100

本示例将选定内容移至活动段落的末尾,然后显示选定内容移动的字符数。


x = Selection.MoveUntil(Cset:=Chr$(13), Count:=wdForward)
MsgBox x-1 & " character positions were moved"

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号