作者：乔山办公网日期：
返回目录：word文档
第一，不需要用宏来替换。CTRL+A（选中整篇文档），CTRL+H（查找和替换），单击查找内容栏，再单击下面zhidao的“高级”，“格式”，然后选中要替换的字体或其它格式；“替换为”栏以同样的办法设为你需专要的格式，单击全部替换就行了。
第二，如果必须用宏来完成。可以先花一点时间来录制一个宏（这个不用说了吧），然后运行这个录制的宏属就行了。不需要自己动手去写代码的。
ctrl+h调出替换对话框
查找内容输入：([0-9])。
替换为输入：\1.
高级或更多选择“使用通配符”，点击全部替换，一次替换即可。
项目不多的话WORD中直接替换就成了，我说的是项目，全部替换就成
假设只有一个正确答案，每题都e799bee5baa6e79fa5e98193e4b893e5b19e331有”正确答案：“和”是他的正确答案“。
同时按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运行此宏，完成。