请教如何将每道题的【答案】和【解析】移到【题干】后面？

文人慕

现有文档是【题干】【题干】...【题干】，【答案】【答案】...【答案】，【解析】【解析】...【解析】
需要修改为【题干】【答案】【解析】；【题干】【答案】【解析】；...【题干】【答案】【解析】；
多谢各位大佬帮助。

ming0018

下班了，明天给代码。

文人慕

ming0018 发表于 2020-6-8 17:57
下班了，明天给代码。

非常感谢你，若是有时间的话，需要你的帮助。

ming0018

文人慕 发表于 2020-6-9 08:06
非常感谢你，若是有时间的话，需要你的帮助。

运行附件里的宏就可以了

文人慕

ming0018 发表于 2020-6-9 11:26
运行附件里的宏就可以了

非常感谢你，但是还有个小的问题，若是试题多的话，【题干】的先后顺序会发生变化，能否按照原先的顺序排列？

gbgbxgb

这些生活中常用的日常用语感觉挺好的，你上个多多的Word文档，我可以给你写，否则不给写^_^。

文人慕

gbgbxgb 发表于 2020-7-14 09:55
这些生活中常用的日常用语感觉挺好的，你上个多多的Word文档，我可以给你写，否则不给写^_^。

请参考附件，目标要求：将【答案】挪到【解析】前面，需要保证题目的先后顺序不变动。

gbgbxgb

文人慕 发表于 2020-7-14 11:23
请参考附件，目标要求：将【答案】挪到【解析】前面，需要保证题目的先后顺序不变动。

你这6楼的附件是什么呀？！！！
该附件是你在另一求助帖中发过的，与此求助帖附件中的Word文档是一样的格式吗？

重要的事情说三遍：我要英文学习题、我要英文学习题、我要英文学习题。。。。

顺带说下，你本次上传的附件我亦写过代码了，但好象没上传（印象不深了），你不给英文习题，我俩代码均不给！！！！^_^^_^^_^

yxingsong

ming0018 发表于 2020-6-9 11:26
运行附件里的宏就可以了

你好，我想请教一个问题，如何将一套有详细解答的题，用宏将答案详解办法提取出来呢，每个题的格式都是一样的，我用查找两个关键字，删除这两个关键字之间的内容，留下的就是答案，但是只能执行一次，加了循环后，还是无效果，你能帮我看一下吗

1. 
   

复制代码

sqhsqhli

Sub dd()
Dim a, b, c, s1 As String, s2 As String, s3 As String, i As Integer, r As String
r = ActiveDocument.Range.Text
a = Split(r, "【解析】")
b = Split(a(0), "【答案】")
s1 = b(0)
s2 = Replace(a(0), b(0), "")
s3 = Replace(r, a(0), "")
For i = 1 To UBound(Split(s1, "【题干】"))
c = c & "【题干】" & Split(s1, "【题干】")(i) & "【答案】" & Split(s2, "【答案】")(i) & "【解析】" & Split(s3, "【解析】")(i)
Next
ActiveDocument.Range.Text = c
End Sub