如何通过VBA宏为Word文档括号内指定单词设置格式？

针对你需要给Word文档括号内指定字符设置粗体加斜体的需求，基于你已有的通配符匹配基础，提供两种可行的VBA实现方案：

方案一：直接通配符替换（简洁高效） #

通过通配符分组匹配括号内的目标字符，直接在替换时应用格式：

Sub FormatCharInParentheses()
    With ActiveDocument.Range.Find
        .Text = "(\(*)(黑)(*\))" ' 通配符分组：括号内内容分为【前缀+目标字符+后缀】
        .Replacement.ClearFormatting
        .Replacement.Font.Bold = True ' 启用粗体
        .Replacement.Font.Italic = True ' 启用斜体
        .Replacement.Text = "\1\2\3" ' 保留原内容，仅对分组2（目标字符）应用格式
        .Forward = True
        .Wrap = wdFindAsk
        .Format = True ' 必须开启此项，才能让替换格式生效
        .MatchWildcards = True
        .Execute Replace:=wdReplaceAll
    End With
End Sub

说明： #

• 通配符(\(*)(黑)(*\))将括号内的内容拆分为三个分组，\1是括号开头到目标字符前的内容，\2是目标字符“黑”，\3是目标字符到括号结尾的内容
• 替换时通过\1\2\3保留所有原始文本，仅给\2对应的字符设置格式

方案二：遍历匹配范围（灵活扩展） #

先定位所有括号范围，再在每个范围内单独查找目标字符并设置格式，适合需要批量处理多个目标字符或复杂格式的场景：

Sub FormatCharInParentheses_Advanced()
    Dim targetChar As String
    targetChar = "黑" ' 可修改为需要设置格式的目标字符，或改为数组批量处理
    
    Dim findRange As Range
    Set findRange = ActiveDocument.Content
    
    With findRange.Find
        .Text = "(\(*\))"
        .MatchWildcards = True
        .Forward = True
        .Wrap = wdFindStop ' 找到所有匹配项后停止
        
        Do While .Execute
            ' 截取括号内的内容（去掉前后括号）
            Dim innerRange As Range
            Set innerRange = findRange.Duplicate
            innerRange.Start = innerRange.Start + 1
            innerRange.End = innerRange.End - 1
            
            ' 在括号内查找目标字符并设置格式
            With innerRange.Find
                .Text = targetChar
                .MatchWildcards = False
                .Forward = True
                .Wrap = wdFindStop
                
                Do While .Execute
                    .Parent.Font.Bold = True
                    .Parent.Font.Italic = True
                Loop
            End With
        Loop
    End With
End Sub

说明： #

• 先遍历所有带括号的内容，再聚焦到括号内部进行字符查找，避免误处理括号外的相同字符
• 若需要处理多个目标字符，可将targetChar改为数组，通过循环逐个处理

注意事项： #

1. 运行宏前建议备份文档，避免意外修改
2. 确保Word启用了宏功能（需在信任中心设置允许宏运行）
3. 若文档中有嵌套括号，通配符(\(*\))可能会匹配到最外层括号，需根据实际情况调整通配符规则

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