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

Question

高手们，我没用Vb很久了，现在要解决一个问题，如下 -------------------------------------------原文本例是一道选择题，（ ）是他的正确答案A,这个是答案1 B.这个是答案2 C.这个是答案2正确答案：A-------------------------------------------原文本 现在要把原文本改成下面这种格式 -------------------------------------------目标文本例是一道选择题，（A）是他的正确答案A,这个是答案1 B.这个是答案2 C.这个是答案2-------------------------------------------目标文本 就是原文本的答案在最后，并且注明了正确答案：X，现在是要把这个A移到题面的括号里，并且把正确答案这行删除。。请教高手这种功能怎么在word里面实现，2000多道题目啊，，不甚感激。。

Answer 1

假设只有一个正确答案，每题都有”正确答案：“和”是他的正确答案“。
同时按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运行此宏，完成。本回答被网友采纳