Word VBA批量查找替换宏如何仅在指定文本区间内执行替换操作

• 此前的参数设置无法生效是两个明确的操作错误导致：
  1. 选定目标区间后，执行Selection.HomeKey Unit:=wdStory直接将选中状态重置到文档开头，原本划定的Abstract-References区间从选中上下文被移除，后续查找操作失去范围绑定。
  2. 调用Selection.Find.Execute Replace:=wdReplaceAll时，Word会自动将替换范围重置为全文档，.Wrap = wdFindStop参数不会对无固定Range对象绑定的全局替换生效，无法拦截范围向外扩展。

实现逻辑 #

所有查找替换操作绑定独立定义的目标Range对象，不依赖易被改动的Selection状态：

1. 独立创建查找实例，分别匹配加粗、区分大小写的"Abstract"和"References"，提前校验匹配结果是否存在
2. 基于两个匹配到的文本起始位置，生成专属的目标操作Range——该Range会独立于光标位置、选中状态，不会受后续界面操作的影响
3. 所有替换操作直接在这个目标Range上执行，不调整全局选中状态，.Wrap = wdFindStop会在绑定Range的上下文下，自动实现到达Range边界即停止查找的效果
4. 开启修订追踪的操作直接在文档级设置即可，不需要调整光标位置触发

核心可运行代码片段 #

' 关闭屏幕刷新，大幅提升数百条替换操作的运行速度
Application.ScreenUpdating = False
Dim targetRange As Range
Dim abstractPos As Range, refPos As Range

' 定位符合格式要求的加粗Abstract
With ActiveDocument.Content.Find
    .ClearFormatting
    .Text = "Abstract"
    .Font.Bold = True
    .MatchCase = True
    .MatchWholeWord = True
    .Forward = True
    .Wrap = wdFindStop
    .Execute
    If .Found = False Then
        MsgBox "未找到符合格式要求的加粗、区分大小写匹配的Abstract文本"
        Exit Sub
    End If
    Set abstractPos = .Parent.Duplicate
    abstractPos.Collapse wdCollapseStart
End With

' 从Abstract位置向后定位同格式要求的加粗References
With ActiveDocument.Content.Find
    .ClearFormatting
    .Text = "References"
    .Font.Bold = True
    .MatchCase = True
    .MatchWholeWord = True
    .Forward = True
    .Wrap = wdFindStop
    .Execute Start:=abstractPos.Start
    If .Found = False Then
        MsgBox "未找到符合格式要求的加粗、区分大小写匹配的References文本"
        Exit Sub
    End If
    Set refPos = .Parent.Duplicate
    refPos.Collapse wdCollapseStart
End With

' 生成固定的目标操作区间
Set targetRange = ActiveDocument.Range(Start:=abstractPos.Start, End:=refPos.Start)

' 开启修订追踪，无需移动光标
ActiveDocument.TrackRevisions = True
With ActiveWindow.View.RevisionsFilter
    .markup = wdRevisionsMarkupSimple
    .View = wdRevisionsViewFinal
End With

' 替换操作直接绑定targetRange执行，示例：
With targetRange.Find
    .ClearFormatting
    .Replacement.ClearFormatting
    .Text = "Also "
    .Replacement.Text = "Additionally, "
    .Forward = True
    .Wrap = wdFindStop
    .Format = False
    .MatchCase = True
    .MatchWholeWord = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
    .Execute Replace:=wdReplaceAll
End With

With targetRange.Find
    .ClearFormatting
    .Replacement.ClearFormatting
    .Text = "Therefore "
    .Replacement.Text = "Therefore, "
    .Forward = True
    .Wrap = wdFindStop
    .Format = False
    .MatchCase = True
    .MatchWholeWord = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
    .Execute Replace:=wdReplaceAll
End With

' 后续所有数百条替换规则，直接将Find实例绑定到targetRange即可
Application.ScreenUpdating = True

关键注意事项 #

• 生成targetRange后不要调用全文档选中、光标跳转类操作——这类操作不会改动targetRange的物理范围，但如果仍使用Selection.Find执行替换，会重新丢失范围绑定
• 每次替换操作执行后，targetRange会自动适配内容长度变化，不需要手动重新计算边界
• 相比原方案“全文档替换后追溯拒绝修改”的逻辑，绑定Range直接替换的运行速度会大幅提升，不需要在几百条替换结束后再遍历大段修订记录做批量拒绝。

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