无效果：在每道题的最后一行加一行。

weiyingde

下面是近400道题的两道题，有的题目后面有【解析】，而有的没有，要求在没有【解析】的题目下一行加上【解析】
效果如下：
1．选出下列词语中加点字读音全对的一项[15黄冈]（D）
A．祈祷（dǎo）恻隐（cè）倒坍（tā）龙吟凤哕（huì）
B．嗔怪（chēn）涟漪（qǐ）遒劲（qiú）忍俊不禁（jīn）
C．阔绰（chò）伶仃（líng）逶迤（yí）鳞次栉比（jié）
D．真谛（dì）炽热（chì）酝酿（niàng）惟妙惟肖（xiào）
【解析】
2.下面各句中标点符号使用合乎，规范的一项是[15黄冈]（B）
A．风来了，荷叶为什么就不能迎风招展？谁规定了它的下场非得是宁折不弯？风让它欢欣、雨也让它喜悦，荷盘中的一汪水，被荷叶摇成一颗亮晶晶的玉珠。
B．在育才中学举行的“5•12”防震疏散演练中，九（2）班落实任务最好的是三、四组。
C．罗丹用石头雕塑了一只鹰，鹰雕塑得栩栩如生，好像真的在天空中展翅高飞一样。有人问他：“你是怎样把石头雕塑得飞起来的？罗丹大师。”
D．东六宫大都作为古代艺术品的陈列专馆，展出宫内收藏的青铜器、绘画、陶瓷……等。

红字的部分为添加的。
代码是：
Sub 添加解析()
With ActiveDocument.Content
     .Find.Execute "(D[\.、．]@[!^13]@^13)([\d]@[\.、．]@)", , , 1, , , , , , "\1【解析】^p\2", 2
End With
End Sub
不知怎的，没有效果。恳请大侠援手。谢谢
反复琢磨，发现还是可以用一句代码实现，代码如下：
.Find.Execute "(D[\.、．]@[!^13]@^13)([0-9]@[\.、．]@)", , , 1, , , , , , "\1【解析】^p\2", 2
原因就是：\d就是正则缩写,不适合word查找；而[0-9]则实用于二者。
看来，基础知识的牢固，非常重要，发此贴如此，用以自省。

weiyingde

再次求助，望援手获助，先谢施助者。

duquancai

weiyingde 发表于 2017-7-11 17:34
再次求助，望援手获助，先谢施助者。

正则和FIND都可以

weiyingde

是的，应该不难；可不知为什么，真是汗颜！！！

weiyingde

duquancai 发表于 2017-7-11 18:19
正则和FIND都可以

.Find.Execute "(D[\.、．]@[!^13]@^13)([\d]@[\.、．]@)", , , 1, , , , , , "\1【解析】^p\2", 2
不知什么原因，不能匹配和定位。

duquancai

weiyingde 发表于 2017-7-11 18:54
.Find.Execute "(D[\.、．]@[!^13]@^13)([\d]@[\.、．]@)", , , 1, , , , , , "\1【解析】^p\2", 2
不 ...

Sub 添加解析()
    Dim d As Document, b As Boolean
    Set d = ActiveDocument
    d.Content.Find.Execute "^13{2,}", , , 1, , , , , , "^p", 2
    With d.Content.Find
        Do While .Execute("^13[0-9]{1,}", , , 1)
            If Not b Then
                b = True
            Else
                With .Parent
                    .MoveUntil vbCr, wdBackward
                    If .MoveWhile("【解析】") Then
                        .Move 4, 1
                    Else
                        .MoveUntil vbCr
                        .Text = vbCr & "【解析】": .Move 4, 1
                    End If
                End With
            End If
        Loop
    End With
End Sub

weiyingde

duquancai 发表于 2017-7-11 19:25
Sub 添加解析()
    Dim d As Document, b As Boolean
    Set d = ActiveDocument

谢谢你，你的代码，我仔细研读一下。

weiyingde

duquancai 发表于 2017-7-11 19:25
Sub 添加解析()
    Dim d As Document, b As Boolean
    Set d = ActiveDocument

消化代码恐怕要些时间……
请问杜老师：.Find.Execute "(D[\.、．]@[!^13]@^13)([\d]@[\.、．]@)", , , 1, , , , , , "\1【解析】^p\2", 2
没有效果，原因在哪儿？这个思路能走通吗？

duquancai

weiyingde 发表于 2017-7-11 19:43
消化代码恐怕要些时间……
请问杜老师：.Find.Execute "(D[\.、．]@[!^13]@^13)([\d]@[\.、．]@)", , ,  ...

原因在于你的思路逻辑！你是否忘记了 vba中的三大循环 for i 循环，for each循环，do循环，以及流程if逻辑判读，这些是vba的基本功，也是其他编程语言的基本功。你的思路逻辑（也可以说是算法）就一个劲的想一句代码就搞定全部！事实上：绝大多数题目离开的循环及判断 几乎寸步难行！！！

weiyingde

duquancai 发表于 2017-7-11 21:17
原因在于你的思路逻辑！你是否忘记了 vba中的三大循环 for i 循环，for each循环，do循环，以及流程if逻 ...

啊，这样；多谢指导！！