Word VBA设置特定条件替换文本的实现问题

方法一：用Word内置查找替换（通配符模式） #

这是最快捷的无代码方案，通过负向预查精准排除已存在「nº」的文本：

1. 按快捷键Ctrl+H打开「查找和替换」对话框
2. 点击「更多」按钮，勾选「使用通配符」选项
3. 在「查找内容」框输入：(Summary )(?!nº )([0-9]{1,})
   • 规则解析：(Summary )匹配带空格的「Summary 」；(?!nº )是负向预查，确保后续没有「nº 」；([0-9]{1,})匹配1位及以上的数字
4. 在「替换为」框输入：\1nº \2
   • 替换逻辑：\1引用匹配到的「Summary 」，\2引用匹配到的数字，中间插入「nº 」
5. 点击「全部替换」，只会修改「Summary 数字」格式的文本，不会改动已有的「Summary nº 数字」

方法二：VBA宏（适合批量/复杂文档处理） #

如果文档包含页眉、页脚或复杂格式，用VBA宏能覆盖所有内容区域：

1. 按Alt+F11打开VBA编辑器，右键当前文档→「插入」→「模块」
2. 粘贴以下代码：

Sub AddNoToSummary()
    Dim regEx As Object
    Dim doc As Document
    Dim rng As Range
    
    Set doc = ActiveDocument
    Set regEx = CreateObject("VBScript.RegExp")
    
    With regEx
        .Global = True ' 全局匹配所有符合条件的内容
        .IgnoreCase = False ' 区分大小写（需忽略可改为True）
        .Pattern = "(Summary )(?!nº )(\d+)" ' 核心规则：排除已带nº的情况
    End With
    
    ' 遍历文档所有内容区域（含页眉、页脚等）
    For Each rng In doc.StoryRanges
        rng.Text = regEx.Replace(rng.Text, "$1nº $2")
    Next rng
    
    ' 释放资源
    Set regEx = Nothing
    Set doc = Nothing
    Set rng = Nothing
    MsgBox "替换完成！"
End Sub

3. 按F5运行宏，或回到Word界面，在「开发工具」→「宏」中选择AddNoToSummary执行

关键注意事项 #

• 操作前务必备份文档，避免意外修改
• 通配符模式下，空格和符号需严格匹配，比如「Summary 」后的空格不能省略
• VBA宏运行前需确保Word启用了宏功能（弹出安全提示时选择启用）

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