VBA使用通配符*匹配Test插入换行时如何保留原有内容？

你之前匹配后丢失原内容是因为没有使用捕获组保留需要复用的匹配片段，用「捕获组+反向引用」就能解决这个问题。

场景1：Word宏（通配符查找替换） #

你直接用Word自带的通配符替换功能或者写VBA宏都可以，核心规则是把要保留的匹配内容用括号包裹为捕获组，替换时用\1引用捕获内容：

• 查找规则（需开启通配符模式）：(Test[!^13]@)
  含义：匹配所有以Test开头、到当前行结尾的内容，存入第1个捕获组
• 替换规则：\1^pQA
  含义：先原样输出捕获到的原内容，加换行符^p，再补QA

对应的VBA宏代码示例：

Sub AddQAAfterTestLine()
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "(Test[!^13]@)"
        .Replacement.Text = "\1^pQA"
        .Forward = True
        .Wrap = wdFindContinue
        .MatchWildcards = True
        .Format = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub

如果需要严格匹配独立单词「Test」，避免匹配到Testing、atest这类内容，可以把查找规则改成(\<Test[!^13]@)，\<代表单词边界。

场景2：通用文本处理宏（正则实现） #

如果是Excel、其他文本工具的宏，用正则的捕获组逻辑完全一致，只是反向引用的符号换成$1：
示例代码（VBA调用正则）：

Sub RegExAddQA()
    Dim regEx As Object, sourceStr As String, resultStr As String
    Set regEx = CreateObject("VBScript.RegExp")
    regEx.Global = True
    ' 捕获所有Test开头的行内容
    regEx.Pattern = "(Test.*)"
    ' 替换逻辑：原内容 + 换行 + QA
    sourceStr = "Test 1234" & vbCrLf & "Test 2345"
    resultStr = regEx.Replace(sourceStr, "$1" & vbCrLf & "QA")
    ' 可根据需要把resultStr写入对应位置
    MsgBox resultStr
End Sub

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