寻求Word VBA代码实现：删除指定颜色方括号间的文本

需求说明 #

需要实现以下功能：

• 定位文档中同颜色的开方括号[和闭方括号]
• 删除两个括号之间的所有内容（可选择保留或删除括号本身）
• 支持针对不同颜色（如绿色、红色）分别处理

原代码无法识别特定颜色的括号，核心问题是格式匹配的写法错误，且未确保开/闭括号颜色一致。

修改后的代码 #

Sub RemoveTextInColoredBrackets()
    ' 依次处理绿色、红色括号对
    ProcessColoredBracketPairs WdColorGreen
    ProcessColoredBracketPairs WdColorRed
End Sub

' 通用处理特定颜色的方括号对
Sub ProcessColoredBracketPairs(targetColor As WdColor)
    Dim rngOpen As Word.Range
    Dim rngClose As Word.Range
    Dim foundOpen As Boolean
    
    Set rngOpen = ActiveDocument.Content
    
    ' 查找特定颜色的开方括号
    With rngOpen.Find
        .ClearFormatting
        .Text = "["
        .Font.Color = targetColor
        .Format = True
        .Forward = True
        .Wrap = wdFindStop
        .MatchWildcards = False
        foundOpen = .Execute
    End With
    
    Do While foundOpen
        ' 从开括号后方开始查找同颜色的闭方括号
        Set rngClose = rngOpen.Duplicate
        rngClose.Collapse wdCollapseEnd
        rngClose.End = ActiveDocument.Content.End
        
        With rngClose.Find
            .ClearFormatting
            .Text = "]"
            .Font.Color = targetColor
            .Format = True
            .Forward = True
            .Wrap = wdFindStop
            .MatchWildcards = False
            
            If .Execute Then
                ' ========== 可选逻辑 ==========
                ' 1. 只删除括号间的文本，保留括号
                Dim rngToDelete As Word.Range
                Set rngToDelete = ActiveDocument.Range(rngOpen.End, rngClose.Start)
                rngToDelete.Delete
                
                ' 2. 删除整个括号对（包括括号），请注释上面3行，启用下面2行
                ' Set rngToDelete = ActiveDocument.Range(rngOpen.Start, rngClose.End)
                ' rngToDelete.Delete
            End If
        End With
        
        ' 继续查找下一个同颜色的开括号
        rngOpen.Collapse wdCollapseEnd
        foundOpen = rngOpen.Find.Execute
    Loop
End Sub

关键修改说明 #

1. 格式匹配修正：

   • 正确开启格式匹配：.Format = True需单独设置，不能与.Font.Color写在同一行（原代码的写法错误）
   • 分别为开/闭括号指定目标颜色，确保匹配同颜色的括号对

2. 范围定位逻辑：

   • 找到开括号后，从其后方开始查找闭括号，避免跨范围匹配
   • 拆分查找步骤，确保开/闭括号颜色严格一致

3. 可定制删除逻辑：

   • 默认只删除括号之间的文本，保留括号
   • 若需要删除整个括号对，可注释默认逻辑，启用括号对删除代码

4. 嵌套括号处理（可选）：

   • 如果文档存在嵌套的同颜色括号，当前代码会匹配第一个遇到的闭括号。若需处理嵌套，需添加计数逻辑：遇到同颜色开括号时计数+1，闭括号时计数-1，直到计数为0时才是对应的闭括号。

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