怎么把选择题的答案变成固定格式？

413191246se

补：忘了，最后一题的答案需要自己复制一下，因为找不到……

413191246se

补：请楼上朋友备份原文档后试用……

相见是缘8

413191246se 发表于 2018-3-11 00:14
* 楼上朋友好！大神确实不敢当！
* 你的问题有两种方式解决：一是手动替换；二是VBA宏代码。
*

感谢大神帮忙！
发现第25小题的“参考答案：（B）”没有放到正确的位置，提取的答案放到了第二大题、多选题（每题3分）：的下面，可否能再加一个对（一二三……大题）的判断，让答案到正确的位置。

413191246se

***《查找内容》框键入：
(（[ABCDE、]@）)(*)(^13[一二三四五六七八九0-9]@、)
***《替换为》框键入：
（    ）\2^p参考答案：\1\3
***再勾选《使用通配符》，按《全部替换》按钮即可（但是第二题上面有一个空白，可以把^p^p替换为^p）
***如果用VBA代码，则执行以下代码：

1. Sub 提取答案_today()
   
2.     ActiveDocument.Content.Find.Execute "(（[ABCDE、]@）)(*)(^13[一二三四五六七八九0-9]@、)", , , 1, , , , , , "（    ）\2^p参考答案：\1\3", 2
   
3. End Sub
   
4. Sub 参考答案加粗SAME()
   
5.     Dim i As Paragraph
   
6.     For Each i In ActiveDocument.Paragraphs
   
7.         If i.Range Like "参考答案：*" Then
   
8.             With i.Range.Font
   
9.                 .Name = "黑体"
   
10.                 .Name = "Times New Roman"
    
11.                 .Bold = True
    
12.                 .Color = wdColorRed
    
13.             End With
    
14.         End If
    
15.     Next
    
16. End Sub

复制代码

相见是缘8

413191246se 发表于 2018-3-11 14:31
***《查找内容》框键入：
(（[ABCDE、]@）)(*)(^13[一二三四五六七八九0-9]@、)
***《替换为》框键入：

完美替换！感谢大神！！！