word怎么使用宏进行这种替换？

高手们，我没用Vb很久了，现在要解决一个问题，如下

 

 

-------------------------------------------原文本

例是一道选择题，（  ）是他的正确答案

A,这个是答案1

B.这个是答案2

C.这个是答案2

正确答案：A

-------------------------------------------原文本

 

现在要把原文本改成下面这种格式

 

-------------------------------------------目标文本

例是一道选择题，（A）是他的正确答案

A,这个是答案1

B.这个是答案2

C.这个是答案2

-------------------------------------------目标文本

 

 

就是原文本的答案在最后，并且注明了正确答案：X，现在是要把这个A移到题面的括号里，并且把正确答案这行删除。。

请教高手这种功能怎么在word里面实现，2000多道题目啊，，不甚感激。。

 

假设只有一个正确答案，每题都有”正确答案：“和”是他的正确答案“。
同时按Alt和F11进入宏界面，点菜单的插入，模块，粘贴如下代码：
Sub Test()
Dim xStr As String
Selection.HomeKey wdStory
With Selection
    .Find.Text = "正确答案："
    .Find.Forward = True
End With
Selection.Find.Execute
Do While Selection = "正确答案："
Selection.Delete
xStr = Selection
Selection.Delete , 2
With Selection
    .Find.Text = "是他的正确答案"
    .Find.Forward = False
End With
Selection.Find.Execute
Selection.MoveLeft , 3
Selection.TypeText xStr
With Selection
    .Find.Text = "正确答案："
    .Find.Forward = True
End With
Selection.Find.Execute
Loop
End Sub
在此界面直接按F5运行此宏，完成。

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息