wdFindStop未在指定范围末尾停止替换的Word VBA问题

你的代码出现跨段落替换的核心问题有两个：

• 第一次调用.Execute查找匹配项后，oRng的范围会被自动修改为找到的匹配内容范围，而非原来的整个段落范围。后续执行ReplaceAll时，会从这个缩小后的范围开始，且wdFindStop的作用范围也变成了这个小范围，导致Word可能超出段落继续查找。
• 多余的Selection.EndOf操作会改变光标位置，间接干扰后续的段落遍历逻辑。

Private Sub CleanRedundantDef()
    Dim paragraph As Word.Paragraph
    Dim paragraphs As Word.Paragraphs
    Dim rawText As String
    Dim editPair As CEditPair
    Dim editPairs As CEditPairs
    Dim oRng As Range
    
    Set paragraphs = Word.ActiveDocument.Paragraphs
    For Each paragraph In paragraphs
        ' 每次循环重新定义段落范围，避免之前的替换操作修改范围
        Set oRng = paragraph.Range
        rawText = oRng.Text
        
        Set editPairs = New CEditPairs
        editPairs.Initialize rawText
        
        If Not editPairs.searchReplacePairs Is Nothing Then
            For Each editPair In editPairs.searchReplacePairs
                Debug.Print "Search for: "; editPair.SearchString; ", Replace with: "; editPair.ReplaceString
                
                With oRng.Find
                    ' 重置查找参数，避免之前的设置残留
                    .ClearFormatting
                    .Replacement.ClearFormatting
                    .Text = editPair.SearchString
                    .Replacement.Text = editPair.ReplaceString
                    .Forward = True
                    .Wrap = wdFindStop ' 限定在当前oRng范围内查找，超出则停止
                    .MatchCase = False ' 根据需求调整，这里设为不区分大小写
                    .MatchWholeWord = False ' 根据需求调整
                    
                    ' 直接执行替换，无需先单独查找
                    .Execute Replace:=wdReplaceAll
                End With
            Next
        End If
    Next
End Sub

• 每次循环重新初始化oRng：确保每次处理替换时，oRng始终指向当前完整的段落范围，不受之前替换操作的影响。
• 合并查找与替换操作：直接设置好所有查找替换参数后执行Replace:=wdReplaceAll，避免单独查找导致的范围偏移。
• 重置Find参数：添加.ClearFormatting和.Replacement.ClearFormatting，避免残留的格式设置干扰查找逻辑；显式设置MatchCase等参数，确保行为符合预期。
• 移除Selection.EndOf：无需使用Selection对象，避免光标位置变化影响段落遍历。

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