批量修改excel word 文件内容

批量修改EXCEL word文件内容，可以用万能的VBA来实现。

下面这段代码是一个送奶站的应用中，根据每天送奶记录来计算订奶记录中累计已经送奶的数量。代码如下：

Sub 计算已送数量()

Const mYmax = 1000

Dim mYs As String

Dim I, J, K, L As Integer

Dim mYday As Date

Dim mYarr(1 To mYmax, 1 To 6)

Dim M_DNBH As String

Dim M_YSSL As Integer

Dim mYs1 As String

Dim mYs2 As String

mYs1 = "送奶记录"

mYs2 = "订奶记录"

Sheets(mYs1).Select

I = 2

Do While Len(Cells(I, 1)) > 0 '将送奶记录计入数组MYARR

   For J = 1 To 6

       mYarr(I - 1, J) = Cells(I, J)

   Next J

I = I + 1

Loop

I = I - 2 'I记录了送奶的记录数

Sheets(mYs2).Select

J = 2 '记录当前行号

Do While Len(Cells(J, 1)) > 0

M_YSSL = 0

M_DNBH = Cells(J, 1)

For L = 1 To I

   If M_DNBH = mYarr(L, 2) Then

      M_YSSL = M_YSSL + mYarr(L, 6)

   End If

   Cells(J, 7) = M_YSSL

Next L

J = J + 1

Loop

End Sub

订奶记录表，如图：

送奶记录表，如图：

之前有用xreplace这个软件，收费的，注册前只能一次性改最多2个文件，注册后好像可以无限，不记得了有没有限制了，试了好多找到了破解版，是在xp系统上用的，现在换成win7貌似用不了了。

有软件叫 Word批量修改器，能对doc文档做这个操作
对于Excel，还没听说有现成的工具，不过Excel工具箱软件能实现对多个Excel表格的合并
如果能合并到一起，替换应该也容易多了
录制宏当然可以，不过那也需要把每个文件打开一次并运行宏才能实现

选择全文然后点CTRL+F，在查找一项中填写入你要找的关键字，同时再将替换一项中填入你要更改的内容。点击确定即可。全文中你所查找的关键字即全部替换为你所更新的内容。
如将全文中的“点”全部换成“面”则：按CTRL+F，将查找中填写“点”将替换为一项写入“面”，点击确定即可。