匹配有漏：九道题只能匹配七道，求指路

duquancai

weiyingde 发表于 2020-3-15 18:02
谢谢指教。
杜老师误会了我的意思。
我是想匹配“每一道题”，而只非匹配“题号”。

没误会，既然匹配到了序号那就会获得“每一道题”

duquancai

weiyingde 发表于 2020-3-15 18:02
谢谢指教。
杜老师误会了我的意思。
我是想匹配“每一道题”，而只非匹配“题号”。

没误会，只是你不知道变通嘛！看看下面的程序》》》》》》》》》》》

Sub 匹配无遗漏()
    Dim arr&(), n&, i&, doc As Document
    Set doc = ThisDocument
    With doc.Content.Find
        Do While .Execute("^13[0-9]{1,}", , , 1)
            With .Parent
                .Start = .Start + 1
                n = n + 1: ReDim Preserve arr(n)
                arr(n - 1) = .Start
                .Start = .End
            End With
        Loop
    End With
    arr(n) = doc.Content.End
    For i = 1 To n
        MsgBox doc.Range(arr(i - 1), arr(i)).Text
    Next
End Sub

weiyingde

duquancai 发表于 2020-3-15 21:33
没误会，只是你不知道变通嘛！看看下面的程序》》》》》》》》》》》

Sub 匹配无遗漏()

杜老师批评得有理，只是你高估了我，我确实没想到。高人就是高人，条条大路通罗马。谢谢你指教。

weiyingde

duquancai 发表于 2020-3-15 21:33
没误会，只是你不知道变通嘛！看看下面的程序》》》》》》》》》》》

Sub 匹配无遗漏()

忍不住还要回望，
仿佛遗弃了一个沉疴在身的婴儿。
还有救吗，
一楼那段有病的代码？

weiyingde

tcdatongye 发表于 2020-3-15 19:56
Sub 匹配有漏()
With ThisDocument
     With .Content.Find

若是这样的题型，又该怎样匹配？
1.青春期是人一生中身体发育的重要时期，青春期的身体变化主要表现在【72长江.1.1.1】(B)
①自我意识的增强②身体外形的变化③内部器官的完善④性机能的成熟
A.①②③  B.②③④  C.①③④  D.②③
2.小明已经上七年级了，看到班里男生的个子都比自己的高，他很忧虑，也较为自卑。对此下列看法正确的是【72长江.1.1.1】(C)
A.天生就是矮个子，着急也无济于事
B.他父母个子高，他个子矮，这是基因突变，着急也没用
C.在青春期，每个人的身体发育情况各不相同，有的快，有的慢
D.快吃增高的药，不然就长不高了
3.对于青春期出现的特殊生理现象，比如变声、长痘痘等，我们应该【72长江.1.1.1】(B)
A.寻求朋友的帮助，朋友怎么建议就怎么做
B欣然接受，因为这是成长过程中正常的生理现象
C.寻求医生的帮助，尽量回到以前的状态
D.尽量不要抛头露面，以免别人笑话
4.进入青春期，随着生理的变化，我们的内心也充满着矛盾。对于这些矛盾，我们的正确认识是【72长江.1.1.1】(C)
A.不可能通过我们自己解决，我们没这个能力   B.不用去管它，顺其自然
C.我们要积极面对，正确处理                 D.逃避现实，寄情于网络
5.进入青春期、不少同学身心处于一种不平衡的状态，引起种种心理矛盾，这些矛盾主要表现在【72长江.1.1.1】(A)
①反抗与依赖②闭锁与开放③勇敢与怯儒④正义与邪恶
A.①②③  B.②③④  C.①②④  D.①③④

我的匹配：
Sub 实验()
With ActiveDocument
   With .Content.Find
         Do While .Execute("^13[0-9]@[\.、．]*^13（[A-D][\.、．]*^13){1,}", , , 1)
            With .Parent
                 Nb = Nb + 1
                 .MoveStart 1, 1

                 MsgBox .Text

                 .Collapse 0
            End With
         Loop
   End With
End With
End Sub
发现不对劲。

weiyingde

自我解决，代码如下：
.Execute("^13[0-9]@[\.、．]*^13[0-9]", , , 1)
.MoveStart 1, 1
.MoveEnd 1, -1

413191246se

魏老师，厉害！"1,1"可以省略，简写为“.MoveStart”。