请问如何用通配符查找含有多个括号的行？

gavincar

如：找到标红的行
1、“大煮干丝”是哪个（）菜系的代表菜之一( )。
A四川菜系 B山东菜系 C广东菜系 D淮扬菜系
2、红茶属于( )茶。
A半发酵 B发酵 C不发酵 D微发酵
3、满汉全席起兴于（ ）（哪个朝代）。
A清 B唐 C宋代 D两汉（东西汉）

另外，能不有将第二个括号批量换成【】括号

duquancai

Sub shishi()
    Dim mt, reg As Object, doc As Document
    Set doc = ActiveDocument
    Set reg = CreateObject("vbscript.regexp")
    reg.Global = True: reg.MultiLine = True
    reg.Pattern = "^\d+([^\)）\r]+[\)）]){2,}?[^\r]*"
    For Each mt In reg.Execute(doc.Content)
        m = mt.FirstIndex: n = mt.Length
        Set oRng = doc.Range(m, m + n)
        MsgBox oRng
    Next
End Sub

duquancai

Sub shishi()
    Dim mt, reg As Object, doc As Document
    Set doc = ActiveDocument
    Set reg = CreateObject("vbscript.regexp")
    reg.Global = True: reg.MultiLine = True
    reg.Pattern = "^\d+([^\)）\r]+[\)）]){2,}?[^\r]*"
    Set mts = reg.Execute(doc.Content)
    If Not mts Is Nothing Then
        For j = mts.Count - 1 To 0 Step -1
            m = mts(j).FirstIndex: n = mts(j).Length
            With doc.Range(m, m + n)
                x = Len(.Text): .Collapse 0
                If .MoveUntil("(（", -x) Then
                    .Start = .Start - 1: .Text = "【": .Collapse 0
                    .MoveUntil ")）"
                    .End = .End + 1: .Text = "】"
                End If
            End With
        Next
    End If
End Sub

gavincar

duquancai 发表于 2017-7-19 10:55
Sub shishi()
    Dim mt, reg As Object, doc As Document
    Set doc = ActiveDocument

非常感谢您的帮助。VBA中的通配符可以。
另外，请问，如果用查找替换中通配符，能实现吗？