怎样避免按钮等控件影响正则表达式的准确匹配

weiyingde

高人路过，请看一楼，搭手施援，排忧解惑，在下先谢。

lss001

weiyingde 发表于 2024-8-26 11:28
高人路过，请看一楼，搭手施援，排忧解惑，在下先谢。

'直接取正则返回值即可

Sub 要求匹配解析捕获四个()
    Dim mv$, wst$, i&, j&, k&
    Dim wdoc As Document, mt As Object
   
    Set wdoc = ThisDocument
    wst = wdoc.Content
    '不需要替换表格以及控件！
    With CreateObject("vbscript.regexp")
        .Global = True
        .Ignorecase = False
        .MultiLine = True
        .Pattern = "(^解析\s*)([A-D].*?)([A-D].*?)([A-D].*?)$"
        For Each mt In .Execute(wst)
            For i = 1 To mt.SubMatches.Count - 1
                 MsgBox mt.SubMatches(i) '子项匹配
            Next
'            mv = mt.Value
'            MsgBox mv '整体匹配
        Next
    End With

End Sub

weiyingde

lss001 发表于 2024-8-27 13:55
'直接取正则返回值即可

Sub 要求匹配解析捕获四个()

这我知道，关键是我还要有大量的后续操作，必须在word下定位。