怎样写一个word宏或者excel宏，调用excel中的数据，对Word文档进行自动批量替换？

你不一定会修改宏，所以，给你另外一种方法吧：

可以试试 文件批量处理百宝箱V9.0中的主界面中的批替换功能卡。

1.在你的Excel表格中，插入一列，该列采用自动填充的方式，填充上序号1,2,3,4.。。。。。

2.该序号列的后一列是待查找的内容列，再后一列是替换后的新内容

3.将此表格的内容另存为txt文档(制表符分隔)

4.启动百宝箱，切换到主界面的批替换功能卡，选择doc类型，然后将待处理的文档列表加载如列表中，然后进入批替换界面，单击导入批替换 *** 作列表

5.单击 执行批替换。

以后你只需要修改该列表，可以很方便的重复批量使用。

excel 宏替换可以按照以下步骤进行：

1、使用系统自带的替换功能需要输入待替换的字符串以及替换成的字符串，麻烦。所以写个macro，一个快捷键能够完成此 *** 作。

2、按ALT+F11打开VB编辑器，在PERSONAL.XLS模块中写入如下代码如下：

SubReplaceATag()

   ForEachcInActiveCell.CurrentRegion.Cells

       IfInStr(c.Value,””)Thenc.Value = Replace(c.Value,””,””)

   Next

EndSub

3、ALT+F8打开【宏】对话框点【编辑】PerSONAL.XLS!RepaceATag，d出【不能在隐藏工作簿中编辑宏。请选定“取消窗口隐藏”命令以显示工作簿。】在Excel【窗口】菜单中选择【取消隐藏(U)…】就不会d出警告，宏也可以编辑运行了。

4、按ALT+R就去掉了所有的字符串。以后打开新的excel，直接ALT+F8，选择PerSONAL.XLS!RepaceATag，然后ALT+R就运行选定的宏。

需要用B表格（单独一个表格）中的替换公式去让A表格里面的内容替换

——请说清楚，B表格和A表格是否在同一个excel工作簿的两个sheet？

我根据你的代码，我猜测你希望要做到的A表格和B表格是两个独立工作簿，因此，方法如下：

代码要改成：

Replacement:=workbooks("B").Sheets("替换") 其他代码都一样，就是加一个workbooks("B")B就是替换公式所在的工作簿名称

运行时，要去A工作簿中，再运行代码

---