如何在Word中自动将每行末尾括号内文本设为粗体？

嘿，我来帮你搞定这个Word宏的需求！你要给每行开头的(...)内容自动加粗，还得跳过那些已经是加粗加下划线的标题，原代码确实没实现这些逻辑，我给你重新写了一个能正常工作的版本，还处理了例外规则：

修正后的完整宏代码 #

Sub FormatParenthesesContent()
    Dim doc As Document
    Dim rng As Range
    Dim findRange As Range
    Dim isHeading As Boolean
    
    Set doc = ActiveDocument
    Set rng = doc.Content
    
    ' 设置查找参数，启用通配符精准匹配(...)
    With rng.Find
        .ClearFormatting
        .MatchCase = False
        .Wrap = wdFindStop ' 遍历到文档末尾即停止
        .Forward = True
        .Text = "\((*\))" ' 通配符规则：匹配(开头、)结尾的完整内容
        .MatchWildcards = True
        
        Do While .Execute
            ' 检查当前匹配内容所在行是否为加粗带下划线的标题
            Set findRange = rng.Duplicate
            findRange.Expand Unit:=wdLine ' 扩展范围到整行
            
            ' 判断整行是否同时满足加粗+非无下划线的格式
            isHeading = (findRange.Font.Bold = wdBold And findRange.Font.Underline <> wdUnderlineNone)
            
            ' 不是标题的话，就设置为粗体
            If Not isHeading Then
                rng.Font.Bold = wdBold
            End If
        Loop
    End With
    
    MsgBox "格式设置完成！", vbInformation
End Sub

代码关键逻辑说明 #

• 精准匹配(...)：用通配符\((*\))能准确捕获从(开始到对应)结束的内容，不会误选行内其他无关的括号内容
• 例外规则处理：每次找到匹配内容后，先把范围扩展到整行，检查该行是否同时满足「加粗」和「带下划线」，符合标题特征就跳过修改
• 稳定的Range操作：全程使用Range对象而非Selection，避免干扰用户当前的选中状态，执行更流畅稳定
• 可控的遍历范围：设置Wrap = wdFindStop，确保宏执行到文档最后就结束，不会出现无限循环的问题

使用步骤 #

• 打开需要处理的Word文档，按下Alt+F11打开VBA编辑器
• 点击菜单栏的「插入」→「模块」，新建一个空白模块
• 将上面的代码粘贴到模块中
• 回到Word界面，按下Alt+F8，在弹出的宏列表中选择FormatParenthesesContent，点击「执行」即可

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