vba - 在文档中查找字符串并删除其后的所有内容

我想在Word文档中找到一个字符串并删除其后的所有内容。

不使用Selection对象的最佳方法是什么？

最佳答案

请使用Range对象。直接脱离Word 2003帮助：


如果您已经找到了Find对象
从范围对象中，选择
匹配的文字未更改时
找到条件，但范围
对象被重新定义。下列
该示例查找第一个出现的位置
活动中的“蓝色”一词
文件。如果在
文档，myRange被重新定义

Set myRange = ActiveDocument.Content
myRange.Find.Execute FindText:="blue", _
    Forward:=True
If myRange.Find.Found = True Then

现在，使用该SetRange对象的Range方法，使范围的开头成为您搜索的字符串结尾之后的下一个字符，并使范围的结尾成为文档的结尾：

myRange.SetRange (myRange.End + 1), ActiveDocument.Content.End

（待办事项：当字符串是文档中的最后内容时，您需要处理这种情况）

删除内容：

myRange.Delete