作者：乔山办公网日期：
返回目录：word文档
你不一定会修改宏，所以，给你另外一种方法吧：
可以试试 文件批量处百理百宝箱V9.0中的主界面度中的批替换功能卡。
1.在你的Excel表格中，插入一列，该列采用自动填充的方式，填充上序号1,2,3,4.。。。。。
2.该序号列的后一列是待查找的内容列，再后一列是替问换后的新内容
3.将此表格的内容另存答为txt文档(制表符分隔)
4.启动百宝箱，切换到主界面的批替换专功能卡，选择doc类型，然后将待处理的文档列表加载如列表中，然后进入批属替换界面，单击导入批替换操作列表
5.单击 执行批替换。
以后你只需要修改该列表，可以很方便的重复批量使用。
第一，不需要用宏来替换。CTRL+A（选中整篇来文档），CTRL+H（查找和替换），单击查找内容栏，再单击下面的“高级”，“格式自”，然后选中要替换的字体或其它格式；“百替换为”栏以同样的办法设为你需要的格式，单击度全部替换就行了。
第二，如果必须用宏来完成。可以先花一点时间来录制一个宏（这个不问用说了吧），然后运行这个录制的宏就行了。不需要自己动手答去写代码的。
ctrl+h调出替换对话框
查找内容输入：([0-9])。
替换为输入：\1.
高级或更多选择“使用通配符”，点击全部替换，一次替换即可。
如果要替换的数在知Word表格中，这个Word只有一个表格，可以使用下道面的方式进行处理：
Sub 宏1()
Dim Rng As Cell
Set Rng = ActiveDocument.Tables(1).Cell(1, 1)
If InStr(Rng.Range.Text, "42") Then Rng.Range.Text = Int(40 + 10 * Rnd())
Do
Set Rng = Rng.Next
If InStr(Rng.Range.Text, "42") Then Rng.Range.Text = Int(40 + 10 * Rnd())
Loop Until (Rng.RowIndex = ActiveDocument.Tables(1).Rows.Count And Rng.ColumnIndex = ActiveDocument.Tables(1).Columns.Count)
End Sub
上面 Int(40 + 10 * Rnd())可以生回成[40,49]的数，如果要包含50，将10改为答11