考试想做个题库，题很多，遇到困难了

sfyj23 · 发表于 2021-5-12 20:13

想把例题中的选择题放到每道题D选项的下面，判断题的括号由每道题的左边放到右边，以及题中有很多空格的地方，都修正过来，求高手帮帮忙！最后想要的结果就是最后word中标成颜色的结果。

sfyj23 · 发表于 2021-5-14 21:10

若能解决问题，本人愿意支付费用，主要是想学习高手们是如何的解决问题的，想学习！

413191246se · 发表于 2021-5-16 02:15

本帖最后由 413191246se 于 2021-5-16 20:56 编辑

略。。。。

413191246se · 发表于 2021-5-16 08:06

Sub test()
With ActiveDocument.Content.Find
.Execute "([，,])^13", , , 1, , , , , , "\1", 2
.Execute "([（(][A-D]{2}[)）])*^13*A*B*C*D*^13", , , 1, , , , , , "^&[答案]\1^p^p", 2
.Execute "(^13[0-9]{1,}?)([（(]?[)）])(*)(^13)", , , 1, , , , , , "\1\3\2^p", 2
.Execute "(^13[0-9]{1,}?)([（(]?[)）])(*)(^13)", , , 1, , , , , , "\1\3\2^p", 2
End With
End Sub

复制代码

413191246se · 发表于 2021-5-16 09:40

楼主，如果不懂宏，可以搜索“宏”的应用；或按 Ctrl+A 全选，在查找框中键入上面代码第一个双引号中的内容；在替换为框中键入第二个双引号中的内容（注意大小写和半角全角）；勾选“使用通配符”，按“全部替换”即可。

tcdatongye · 发表于 2021-5-16 14:33

考试想做个题库，题很多，遇到困难了

wdpfox · 发表于 2021-5-17 08:30

感谢楼主分享，支持一下！

We meet by chance like patches of drifting duckweed,
May everything be fine with you everyday !
（你我萍水相逢，愿君一切安好！）

wdpfox · 发表于 2021-5-19 20:18

没敢打开附件, 提示有病毒。

sfyj23 · 发表于 2021-5-19 22:45

就是excel呀，没有病毒呀

gbgbxgb · 发表于 2021-5-20 07:48

没￥200，不想写，

		自动登录	找回密码
密码			免费注册

[求助] 考试想做个题库，题很多，遇到困难了