求便捷或其他方法：给题和题枝干加别加题号编号

weiyingde

下面是没有题号和枝题的题目，要求分别加上。
全国176县市中考四项基础梳理【2017年卷】
下列加点字注音全部正确的一项是[17黄冈]()
寒噤(jìn)      箱箧(qiè)     藩篱(pān)      惟妙惟肖(xiào)
诘责(jiè)      锃亮(zèng)    稽首(qǐ)       颔首低眉(hàn)
妖娆(ráo)     佝偻(lóu)      恣睢(zī)       拈轻怕重(niān)
阔绰(chuò)    荫庇(yìn)     恻隐(chè)      吹毛求疵(cī)
下列各句中，标点符号使用合乎规范的一项是[17黄冈]()
君子要讲和谐，但不能随波逐流，更不能同流合污。《中庸》所谓“君子和而不流，”就是指在大是大非面前不能有丝毫含糊。
鸡年春晚筹备时间短，节目变动大，呈现出强烈的“定制”色彩：主旋律、流行、传统文化等各种必备元素杂糅，遭到网友的各种吐槽。
抗日战争的胜利，让拿破仑所说的“东方睡狮”睁开双眼，开启民族复兴的序篇，最终完成了“中国人民从此站起来了”的历史转折。
最近多名省部级高官因贪污受贿被判处徒刑，人民群众无不拍手称快，但人们还在关注着检察机关对那些行贿者将如何处置?
下列各句中，没有语病的一项是[17黄冈]()
我们期待“五四的火炬”再次为国家与民族的发展注入青春的能量，激励新时代的广大青年，紧紧围绕以社会主义核心价值观为核心，在中华民族的伟大复兴的征程中谱写新的青春乐章。
他的脸上是一张晴雨表，喜怒哀乐总是挂在表面上，让人一眼就可以看明白。
在昨天的学习经验交流会上，李小璐介绍了三条学习方法，具有很大的启发性。
汪勇同志的先进事迹就是一本活生生的人生教科书，全国政法机关要通过广泛开展向汪勇同志学习的活动，形成学赶英模、争创一流的浓厚氛围。
下列各项判断与分析中，错误的一项是[17黄冈]()
“长妈妈，已经说过，是一个一向带领着我的女工，说得阔气一点，就是我的保姆。”这句话中加点的词依次为助词、副词、形容词、名词。
“一带一路”“人物描写”“精力充沛”“吃了三碗”依次是并列短语、偏正短语、诸位短语、动宾短语。
“以古代丝绸之路兴盛时期的中国汉唐建筑特色为设计灵感的雁栖湖国际会议中心，如同一只展开双翅的鸿雁”这个句子的主干是“中心如同鸿雁”。
“敬字为古圣贤教人做人最简易、直接的法门，可惜被后来有些人说得太精微，倒变得不适实用了。”这个二重复句的第一重是因果关系。

最后效果是：
全国176县市中考四项基础梳理【2017年卷】
1.下列加点字注音全部正确的一项是[17黄冈]()
A、寒噤(jìn)      箱箧(qiè)     藩篱(pān)      惟妙惟肖(xiào)
B、诘责(jiè)      锃亮(zèng)    稽首(qǐ)       颔首低眉(hàn)
C、妖娆(ráo)     佝偻(lóu)      恣睢(zī)       拈轻怕重(niān)
D、阔绰(chuò)    荫庇(yìn)     恻隐(chè)      吹毛求疵(cī)
2.下列各句中，标点符号使用合乎规范的一项是[17黄冈]()
A、君子要讲和谐，但不能随波逐流，更不能同流合污。《中庸》所谓“君子和而不流，”就是指在大是大非面前不能有丝毫含糊。
B、鸡年春晚筹备时间短，节目变动大，呈现出强烈的“定制”色彩：主旋律、流行、传统文化等各种必备元素杂糅，遭到网友的各种吐槽。
C、抗日战争的胜利，让拿破仑所说的“东方睡狮”睁开双眼，开启民族复兴的序篇，最终完成了“中国人民从此站起来了”的历史转折。
D、最近多名省部级高官因贪污受贿被判处徒刑，人民群众无不拍手称快，但人们还在关注着检察机关对那些行贿者将如何处置?
3.下列各句中，没有语病的一项是[17黄冈]()
A、我们期待“五四的火炬”再次为国家与民族的发展注入青春的能量，激励新时代的广大青年，紧紧围绕以社会主义核心价值观为核心，在中华民族的伟大复兴的征程中谱写新的青春乐章。
B、他的脸上是一张晴雨表，喜怒哀乐总是挂在表面上，让人一眼就可以看明白。
C、在昨天的学习经验交流会上，李小璐介绍了三条学习方法，具有很大的启发性。
D、汪勇同志的先进事迹就是一本活生生的人生教科书，全国政法机关要通过广泛开展向汪勇同志学习的活动，形成学赶英模、争创一流的浓厚氛围。
4.下列各项判断与分析中，错误的一项是[17黄冈]()
A、“长妈妈，已经说过，是一个一向带领着我的女工，说得阔气一点，就是我的保姆。”这句话中加点的词依次为助词、副词、形容词、名词。
B、“一带一路”“人物描写”“精力充沛”“吃了三碗”依次是并列短语、偏正短语、诸位短语、动宾短语。
C、“以古代丝绸之路兴盛时期的中国汉唐建筑特色为设计灵感的雁栖湖国际会议中心，如同一只展开双翅的鸿雁”这个句子的主干是“中心如同鸿雁”。
D、“敬字为古圣贤教人做人最简易、直接的法门，可惜被后来有些人说得太精微，倒变得不适实用了。”这个二重复句的第一重是因果关系。

代码是：
Sub 给题和题枝干加别加题号编号()
n = 0
With ActiveDocument
     For Each par In .Paragraphs
         If Len(par) > 1 Then n = n + 1
     Next
     For i = 2 To n
        If (i - 2) Mod 5 = 0 Then
           tx1 = .Paragraphs(i).Range.Text
           .Paragraphs(i).Range.Text = 1 + Int((i - 2) / 5) & "." & tx1
        Else
           ys = (i - 2) Mod 5
           tx2 = .Paragraphs(i).Range.Text
           .Paragraphs(i).Range.Text = Chr(64 + ys) & "、" & tx2
        End If
    Next
End With
End Sub

求更便捷或其他代码实现的方法。
请各位大侠赐教。

jiminyanyan

你写的那个够简洁了吧。。。。。

duquancai

这种题目，还不提供附件，就算提供了附件还未必有人给你做！！！

duquancai

每一道题 答案部分就 有且只有4个选项（ABCD），难道就没有3个选项或者5个选项？？？还有就是：题干就一定是“一个段落”？每一个答案就一定是“一个段落”？太理想化了！！！

weiyingde

二位好，我想通过这个实例看看实现此类目标，有哪些方法，也好复习一下过往的零碎知识并领会新的知识。
附件如下

duquancai

weiyingde 发表于 2017-8-21 21:51
二位好，我想通过这个实例看看实现此类目标，有哪些方法，也好复习一下过往的零碎知识并领会新的知识。
附 ...

只把题干编号加上，其余自己去练习！

Sub 给题干加编号()
    With ActiveDocument.Content.Find
        Do While .Execute("[\(（][\)）]^13", , , 1)
            n = n + 1
            With .Parent
                .Paragraphs(1).Range.InsertBefore n & "."
            End With
        Loop
    End With
End Sub

duquancai

weiyingde 发表于 2017-8-21 21:51
二位好，我想通过这个实例看看实现此类目标，有哪些方法，也好复习一下过往的零碎知识并领会新的知识。
附 ...

可使用正则！！！

duquancai

weiyingde 发表于 2017-8-21 21:51
二位好，我想通过这个实例看看实现此类目标，有哪些方法，也好复习一下过往的零碎知识并领会新的知识。
附 ...

Sub 给题和题枝干加别加题号编号()
    Dim mts As Object, reg As Object, doc As Document, a
    Set doc = ActiveDocument: Set reg = CreateObject("vbscript.regexp")
    reg.Global = True: reg.MultiLine = True
    reg.Pattern = "^[^\r]*\(\)(?:(?!^[^\r]*\(\)).)+"
    a = Array("A、", "B、", "C、", "D、", "E、", "F、", "G、", "H、")
    doc.Content.Find.Execute "^w^p", , , , , , , , , "^p", 2
    doc.Content.Find.Execute "^13{2,}", , , 1, , , , , , "^p", 2
    Set mts = reg.Execute(doc.Content.Text)
    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)
                .Paragraphs(1).Range.InsertBefore j + 1 & "."
                If .Paragraphs.Count <= UBound(a) Then
                    For i = 2 To .Paragraphs.Count
                        .Paragraphs(i).Range.InsertBefore a(i - 2)
                    Next
                End If
            End With
        Next
    End If
End Sub

weiyingde

duquancai 发表于 2017-8-21 23:17
Sub 给题和题枝干加别加题号编号()
    Dim mts As Object, reg As Object, doc As Document, sr$
     ...

谢谢杜老师，也学到了两个好方法。

weiyingde

duquancai 发表于 2017-8-21 21:46
每一道题 答案部分就 有且只有4个选项（ABCD），难道就没有3个选项或者5个选项？？？还有就是：题干就一定 ...

谢谢指教，说得非常在理。
我也是发现了，这的确是是个问题。
而且由于这个缺陷，还有后续的问题要请教。
因为学的不精，代码缺少通用性。