如何把整篇文档中括弧内的（文字设置为白色），不连括弧

aman1516

如题：如何把整篇文档中括弧内的文字设置为白色，但括弧”（“ 和 ”）“ 、”【“ 和 ”】“ 自身不变色，
括弧包括两种，有可能为半角或全角（英文/中文）格式： (内容)、[内容]、（内容）、【内容】
括弧数量是非常多个的......



简单要求，附件就不上了，因WORD方面的VBA处理不熟悉，在此请教下各位老师，谢谢！

蜀中草莽

可以参考这个贴子  ：https://club.excelhome.net/thread-1642426-1-1.html (出处: ExcelHome技术论坛)

aman1516

蜀中草莽 发表于 2023-7-22 20:55
可以参考这个贴子  ：https://club.excelhome.net/thread-1642426-1-1.html (出处: ExcelHome技术论坛)

我知道最好的方法是用正则，在EXCEL里还勉强可拼凑个代码出来，在WORD里面给整不会了

aman1516

    .Pattern = "\[[^\]]+\]"
    这个包括括弧 [] 的，处理时位置要 +2 -2
    .Characters(Start:=Mh(k).FirstIndex + 2, Length:=Mh(k).Length - 2).Font

    WORD文档处理，不会弄了

batmanbbs

aman1516 发表于 2023-7-22 21:48
.Pattern = "\[[^\]]+\]"
    这个包括括弧 [] 的，处理时位置要 +2 -2
    .Characters(Start:=Mh(k ...

gwjkkkkk

Option Explicit
Sub test()
    Dim i&, rngContent As Range, aMatch As Object, Rng As Range, m&, n&
   
    Set rngContent = ActiveDocument.Content
    With CreateObject("VBScript.RegExp")
        .Pattern = "[\(（【\[].+?[\)）】\]]"
        .Global = True
        For Each aMatch In .Execute(rngContent.Text)
            m = aMatch.FirstIndex: n = aMatch.Length
            Set Rng = ActiveDocument.Range(rngContent.Start + m + 1, rngContent.Start + m + n - 1)
            With Rng
                .Font.Color = wdColorWhite
            End With
        Next
    End With
    Beep
End Sub

gwjkkkkk

代码审核中，请参考图片。。。

aman1516

batmanbbs 发表于 2023-7-23 20:47

非常感谢，完美解决。

aman1516

gwjkkkkk 发表于 2023-7-23 21:43
Option Explicit
Sub test()
    Dim i&, rngContent As Range, aMatch As Object, Rng As Range, m&, n& ...

括弧内有内容时正确：
例如——“括弧包括两种，有可能为半角或全角（英文/中文）格式： (内容)、[内容]、（内容）、【内容】”

若括弧内无内容时会出错：
例如——“括弧包括两种，有可能为半角或全角（）格式： ()、[]、（）、【】”