如何让Word VBA的Range.Find在指定范围末尾停止查找？

在Word中定义Range范围后，尝试删除该范围内所有指定字符串，但Find函数却会继续查找至文档末尾。示例如下：

文档内容：

start of range
    a b c d e f
end of range

a b c d e f

使用的VBA代码：

Sub test()

    Dim r As Range
    
    Set r = ThisDocument.Content
    
    'Limit the range to between the start and end flags
    r.Find.Execute findtext:="start of range*end of range"
    
    'Delete all instances of "b". Intended to work only within the flags
    Do While r.Find.Execute(findtext:="b", replacewith:="", Wrap:=wdFindStop)
    Loop

End Sub

希望仅删除标记范围内的b，但即使显式设置Wrap:=wdFindStop，代码仍会删除范围外的b。如何让Find函数在指定Range末尾停止查找？

问题核心是：第二次调用r.Find.Execute时，会修改原Range对象的范围——每次找到匹配项后，r会被重置为当前匹配的内容，不再是最初定位的标记范围，后续查找就会从当前位置继续往后，超出原边界。

修正方案1：保存原范围边界，循环时重置范围 #

Sub test()
    Dim r As Range
    Dim originalRange As Range
    
    Set r = ThisDocument.Content
    '定位到标记范围内的内容
    If r.Find.Execute(findtext:="start of range*end of range") Then
        '保存原范围的完整边界
        Set originalRange = r.Duplicate
        '重置r为原范围，准备开始查找目标字符串
        Set r = originalRange
        
        '每次查找后重置r为原范围，避免范围被修改导致越界
        Do While r.Find.Execute(findtext:="b", replacewith:="", Wrap:=wdFindStop)
            Set r = originalRange
        Loop
    End If
End Sub

修正方案2：一次性批量替换（更高效） #

直接利用Replace:=wdReplaceAll参数，在原始范围内完成所有替换，无需循环：

Sub test()
    Dim r As Range
    
    Set r = ThisDocument.Content
    If r.Find.Execute(findtext:="start of range*end of range") Then
        '直接在原范围内执行替换，Wrap设为wdFindStop确保不超出范围
        r.Find.Execute findtext:="b", replacewith:="", _
            Replace:=wdReplaceAll, Wrap:=wdFindStop
    End If
End Sub

关键注意点 #

• 第一次定位到标记范围后，后续操作必须基于原始范围对象，不能让查找操作修改范围边界。
• 批量替换的方式比循环更高效，且能从根源上避免范围越界的问题。

内容的提问来源于stack exchange，提问作者ApexPolenta