替换法移动答案至括号中

duquancai

小花鹿 发表于 2017-5-9 10:49
我也练习一下：
Sub test()
Dim st, en

Sub test()
    Dim st, en
    With ThisDocument.Range.Find
        Do While .Execute("[0-9]{1,}*【答案】*^13", , , 1)
            With .Parent
                .Collapse
                .MoveUntil Chr(13)
                .MoveUntil "（(", wdBackward
                .MoveEndUntil ")）"
                st = .Start: en = .End
                .Collapse 0
                .MoveUntil "【"
                .MoveUntil Chr(13)
                .MoveStartUntil "】", wdBackward
                ThisDocument.Range(st, en).FormattedText = .FormattedText
                .Expand 4
                .Text = Empty
            End With
        Loop
    End With
End Sub

小花鹿

duquancai 发表于 2017-5-9 11:52
Sub test()
    Dim st, en
    With ThisDocument.Range.Find

不知道有.Expand 这么个玩意

weiyingde

各位大显身手，老朽一睹大侠们风采，这热闹的劲儿，很好，一并学习了！！
只可惜word VBA基础及其薄弱，要读懂，得要花费一些时日，只怕下次还会问些雷同或大致相同的问题，
还望各位仍不吝赐教。
杜老师的word的运用水平真是炉火纯青：每每一个问题，在您在手，“唰唰”迎刃而解——思路开阔，手法灵活，使人感受到条条道路通罗马，不怕做不到，就怕想不到。使人觉得，看高手解决问题，原来也是一种享受！！
小花鹿大侠和jiminyanyan 大侠，手段非凡，驰骋于office领域的每块原地，南征北战，使人感受到：一通百通！！
再次虔诚地受教于三位大侠！！

weiyingde

jiminyanyan 发表于 2017-5-8 23:07
杜老师已经写了，您可以试着注释一下，注释代码也是一个学习与提高的过程。

谢谢提醒，会的，把大家的代码收集在一起看看，比较一下，竭力领悟其中的奥妙……
然而，每当回顾VBA 两年的学习历程，却越来越发现，爱VBA的我，原不是学VBA的那块料！！两年的收获仅仅只落下“爱好”二字……VBA的水平还是停留在“菜菜”的层面上，人家写好的代码，一时半会还不能领略其中的奥妙，模仿还是后话，创造目前还是“水月镜花”，想想杜老师的话，真是汗颜！！

kqbt

查找和替换
查找内容：

1. ([\)）]^13)(*)【答案】([A-F]@)^13

复制代码

替 换 为：

1. \3\1\2

复制代码

√ 使用通配符 → 全部替换

有部分题目因为题干最后的括号与回车之间有半角空格，所以匹配不到。建议通过 Ctrl + a → Crtl + e → Ctrl + L 来将其批量清除掉，然后再执行替换操作。

weiyingde

kqbt 发表于 2017-5-10 11:00
查找和替换
查找内容：

解释到位，很好哦，谢谢！！

weiyingde

kqbt 发表于 2017-5-10 11:00
查找和替换
查找内容：

测试了，简写一下，很好用，再次感谢kqbt 版主
Sub 移动答案最简版()
With ActiveDocument.Content.Find
      .Execute "[ 　]@", , , 1, , , , , , "", 2
      .Execute "([\)）]^13)(*)【答案】([A-F]@)^13", , , 1, , , , , , "\3\1\2", 2
End With
End Sub

weiyingde

jiminyanyan 发表于 2017-5-8 21:00
把答案那一行去掉，应难不住你，我还是写一下吧…………
Sub 宏1()
'

Sub 删除答案所在行() 'jiminyanyan代码，duquancai 式缩写
    Selection.Find.Execute "【答案】[!^13]@^13", , , 1, , , 1, 1, , "", 2
End Sub

tangqingfu

谢谢各位的分享，收藏学习ing……

xd3210

请教，“\3\1\2"替换时，”【答案】"为什么会被替换掉？我的理解是只会替换第三个捕获，即只会替换掉参考答案的那个大写字母。您解决这个问题是进行了深思熟虑和反复试验，特向您请教！