VBA Word：查找子串、扩展选区并批量替换新选区内容

当然可以实现，而且不依赖Selection选区操作的方案更稳定高效，避免手动选区带来的干扰。以下是完整的可运行代码，解决你批量查找子串、扩展选区后替换的需求：

Sub BatchReplaceExtendedText()
    Dim doc As Document
    Dim findRange As Range
    Dim searchText As String
    Dim extendChars As Integer
    Dim replaceWithText As String
    
    ' 自定义参数
    Set doc = ActiveDocument
    searchText = "T04-WPA-"       ' 要查找的目标子串
    extendChars = 6               ' 向右扩展的字符数量
    replaceWithText = "新的替换内容" ' 替换后的目标文本
    
    ' 初始化查找范围为整个文档内容
    Set findRange = doc.Content
    
    With findRange.Find
        .ClearFormatting          ' 清除查找格式（避免格式干扰）
        .Text = searchText        ' 设置查找文本
        .Forward = True           ' 正向查找
        .Wrap = wdFindStop        ' 到文档末尾停止，防止无限循环
        .MatchCase = False        ' 不区分大小写（可按需修改）
        .MatchWholeWord = False   ' 不匹配整词（可按需修改）
        
        ' 循环处理所有匹配项
        Do While .Execute
            ' 将查找范围向右扩展指定字符数
            findRange.MoveEnd wdCharacter, extendChars
            ' 替换扩展后的内容
            findRange.Text = replaceWithText
            ' 重置查找范围为当前位置之后，避免重复处理
            Set findRange = doc.Range(findRange.End, doc.Content.End)
        Loop
    End With
    
    MsgBox "批量替换完成！", vbInformation
End Sub

关键说明 #

• 用Range对象替代Selection：后台执行操作，不影响用户当前选区，运行效率更高
• wdFindStop参数：确保查找至文档末尾后停止，避免出现无限循环
• 每次替换后重置查找范围：从当前替换位置的末尾开始下一次查找，防止重复处理同一内容
• 可根据需求调整MatchCase、MatchWholeWord等查找选项，适配不同场景

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