如何在Word VBA中用通配符实现带匹配值的查找替换？

你遇到的问题核心是没用到Word通配符里的捕获组功能，直接在替换字符串里写通配符会被当成普通文本输出。要保留匹配到的数字，得先在查找模式里把需要保留的部分用括号括起来，替换时用\1（第一个捕获组）引用这部分内容。

修改后的代码示例 #

Sub ReplaceTableNumberFormat()
    Dim myRange As Range
    Set myRange = ActiveDocument.Content ' 可根据需求指定具体范围
    
    Dim toFind As String
    toFind = "Table ([1-9]@) " & vbTab ' 括号将数字部分标记为捕获组
    
    Dim replacementStr As String
    replacementStr = "Table \1." & vbTab ' \1代表前面捕获到的数字内容
    
    ' 执行查找替换
    myRange.Find.Execute FindText:=toFind, _
                         ReplaceWith:=replacementStr, _
                         Replace:=wdReplaceAll, _
                         MatchWildcards:=True
End Sub

关键说明 #

• 查找字符串里的([1-9]@)：括号是通配符的捕获组标记，[1-9]@匹配一个或多个数字，整个括号会把匹配到的数字存为第一个捕获组（编号从1开始）。
• 替换字符串里的\1：直接引用第一个捕获组的内容，也就是之前匹配到的数字，这样就能保留原数字，再加上英文句号和制表符。

执行后就能实现预期效果：Table 1 → Table 1. （末尾空白为制表符）。

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