Question

word vba问题 如何批量替换文件夹内所有的WORD文档内相同的词组？

word vba问题 怎么批量的将WORD文档中某一词组替换，比如说每一个WORD文档都有“XX公司”，想把这个“XX公司”替换为“XX集团”，当然要是能支持打开EXCEL，并替换是最好的。要是不行，替换WORD的也可以。求各位达人帮帮忙、、。

Answer 1

Sub 批量修改()
'On Error Resume Next
Dim FileOpen
Dim X As Integer
Dim wb As Workbook
Application.ScreenUpdating = False
FileOpen = Application.GetOpenFilename(FileFilter:="Microsoft Excel文件(*.xls),*.xls", MultiSelect:=True, Title:="选择工作薄")
X = 1
While X <= UBound(FileOpen)
Set wb = Workbooks.Open(FileOpen(X))
wb.Sheets(1).[a1] = "456"
wb.Sheets(1).[D4] = "王月"
  
     wb.Close True
    X = X + 1
 
Wend
 
End Sub

这个宏 会把  你选中的文件 批量替换  sheet1 ：A1的内容 改为  456   D4 的内容改为  王月， 你可以根据你的实际情况修改代码就可以了， 如果单元格不固定就 用FIND 方法找到再修改

追问

　　这是EXCEL代码吧。我想要的是WORD 。下面这个是我找到的，支持03版,07后FileSearch的还要修改。但是不知道怎么改，还希望能遍历子文件夹，望达人指教。真心不知道怎么像你一样贴代码上去。

追答

“当然要是能支持打开EXCEL，并替换是最好的。要是不行，替换WORD的也可以。”

你看你这句话的意思， 是想要EXCEL 里面的代码， WORD 次之

07以上版本的 搜索子文件夹 可以用 fso 对象的 递归方法 ，可以去看我之前的回答
WORD 替换的代码可以做成一个单据的子程序， 在搜索循环中 调用就可以了 看我之前的回答
http://zhidao.baidu.com/question/2052060242351791867.html?oldq=1

Answer 2

找到 查找/替换 把要换的词 和 要换成的词 输入就行了

追问

是文件夹里的所有WORD，不是一两个的问题。要是有上百个要替换捏。。

追答

你有几个word文件？一个文件换一次，很快的。我还不知道word有批量操作。。。

追问

好吧，那个是VBA操作的。。这样方便很多。我也找到了一些。只是不是很完整。