正则捕获不达目的，分组有误？

weiyingde

目的：匹配每小题中的解析，然后将每个解析中的 “解析  ”、A项……；B……；C项……等捕获出来，译作后用。每个解析项要求四个捕获。
问题：1、(^解析[^\r]*)用了分组，却没捕获；
          2、一、二项做一个捕获；
          3、最后一项一个捕获；
     一共2个捕获，缺两个捕获。
请问：1、红色的括号为什么没有捕获？
          2、为什么A、B、C、(或D)没有分别捕获？问题出在哪里？
          3、请大侠结合源代码修改，并赐教。
有缘光顾，谢谢援手
代码如下：
Sub 要求匹配解析捕获四个()
    Dim mt, mk, oRng As Range, n&, m&, str$, tt$, arr() As Range 'arr()不申明也没关系
    Dim rg As Range, x%, dic As Object, k&, a
    Set dic = CreateObject("Scripting.Dictionary")
    osr = ActiveDocument.Content
    str = Replace(Replace(osr, Chr(7), 0), Chr(1), 0)
    With CreateObject("vbscript.regexp")
        .Global = True: .Ignorecase = False: .MultiLine = True
       '.Pattern = "(^解析[^\r]*)([A-D])((?:(?![A-D\r]).)+)\r"
       .Pattern = "(^解析[^\r]*)([A-D](?:(?![A-D\r]).)*)\r"
        For Each mt In .Execute(str)
         MsgBox mt.submatches(1)
        Next
    End With
End Sub

附件如下：        

weiyingde

再次求援，希望得到援手，先谢了。

weiyingde

免于沉底，再次呼救，大侠援手救助，多谢好心救助。

ww87725244

必须用正则分开？
可以变通一下，提取后按分号分离不行？？？

quqiyuan

硬凑一下，仅供参考。。。
解析\s+([A-D].+?)([A-D].+?)([A-D].+?)$

weiyingde

quqiyuan 发表于 2024-8-24 13:26
硬凑一下，仅供参考。。。
解析\s+([A-D].+?)([A-D].+?)([A-D].+?)$

谢谢回复和帮助，捕获的只有三个，“解析\s+”还是没有被捕捉到。
自己加上一个（），解决问题。

weiyingde

weiyingde 发表于 2024-8-24 13:45
谢谢回复和帮助，捕获的只有三个，“解析\s+”还是没有被捕捉到。
自己加上一个（），解决问题。

我那个代码，怎样修改，才能满足条件？

weiyingde

ww87725244 发表于 2024-8-24 13:25
必须用正则分开？
可以变通一下，提取后按分号分离不行？？？

是为了增强通用性，因为，分号不是一定有的，有的人严谨会使用分号，有的人马虎则不会，他可能用顿号、逗号或句号的。而解析中A、B、C则一定会有的。
也就是说，这类文档，“解析”、A、B、C、D等标识一定有，其他的非必然。

ww87725244

.Pattern = "(^解析)|((\s+|)[A-D]项\W+(\；|\。$))"

ww87725244

第4题最后一个选项，查了很久，不知道啥原因，提取不到，其他没有问题