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

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

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 方法找到再修改

selection.moveup unit:=wdline, count:=1 selection.moveright unit:=wdcharacter, count:=10, extend:=wdextend selection.font.underlinecolor = wdcolorautomatic selection.font.underline = wdunderlinesingle '前面是选择，最后2句是设置下划线。