word如何将选择题的答案批量复制到对应题目后面

绝世偏执狂

嗯我想着一种类型有一个方法 运行代码之前用简单些的宏将文档处理成适用代码的格式
确实有点麻烦

jiminyanyan

有些时候手工体力活,最方便,不要动脑....

绝世偏执狂

jiminyanyan 发表于 2018-4-28 13:41
有些时候手工体力活,最方便,不要动脑....

简单粗暴   

绝世偏执狂

ming0018 发表于 2018-4-28 11:10
你确定  一共就这三类吗？
果然有点复杂，要好好想一下逻辑了！

大神 对于第一种类型 我编辑了一个通配符 先将每道题目的最后一项空出一行然后利用通配符
查找
(^#{1,}.*D.*)(^13)(*单项选择题*)(^#{1,}.【答案】[A-D]{1,}*^13)
替换为\1\4\3
这样可以将答案按照题号分别替换到每道题的后面 缺点就是题目变数比较大稍微一个不注意就替换不了了 另外还需要一下一下的替换
我考虑能不能将该通配符替换录制为宏并让它循环运行直至全部替换完毕呢 然后每次遇到不同的题目可以从代码那里做稍微的修改然后再运行一次宏从而完成替换呢 我对vba不大了解 希望能够得到大神的指点迷津

相见是缘8

绝世偏执狂 发表于 2018-4-28 23:14
大神 对于第一种类型 我编辑了一个通配符 先将每道题目的最后一项空出一行然后利用通配符
查找
(^#{1,} ...

你这个“表达式”真的能查找替换得了？好像不能吧？

绝世偏执狂

相见是缘8 发表于 2018-4-29 08:08
你这个“表达式”真的能查找替换得了？好像不能吧？

(^#{1,}.*D.*^13)(^13)(*单项选择题：^13)(^#{1,}.答案：[A-D]{1,}*解析：*^13)
这个是针对附件原文档1的替换 前提是把每个D选项后空出一行
之前那个是针对图1的替换

相见是缘8

绝世偏执狂 发表于 2018-4-29 09:11
(^#{1,}.*D.*^13)(^13)(*单项选择题：^13)(^#{1,}.答案：[A-D]{1,}*解析：*^13)
这个是针对附件原文档1 ...

你用了 “通配符”，这个 ^# 数字的符号，就应该用不了，你再查找一下看看。

绝世偏执狂

相见是缘8 发表于 2018-4-29 11:46
你用了 “通配符”，这个 ^# 数字的符号，就应该用不了，你再查找一下看看。

是 用了^#这个符号就不能循环了吗
我在附件1中用这个表达式可以一下一下的将文档最后的答案分别替换到每题的最后  类似图中的效果
这个表达式我又修改了一下

相见是缘8

绝世偏执狂 发表于 2018-4-29 12:54
是 用了^#这个符号就不能循环了吗
我在附件1中用这个表达式可以一下一下的将文档最后的答案分别替换到 ...

你的能用？？？怪事！！！我勾选了“通配符”，用了这个 ^# 数字的符号，就查找不了。

绝世偏执狂

相见是缘8 发表于 2018-4-29 15:46
你的能用？？？怪事！！！我勾选了“通配符”，用了这个 ^# 数字的符号，就查找不了。

我用的是WPS文字 不是word 不知道是不是这个原因 我的确实能够替换成功