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

\u5982\u4f55\u6279\u91cf\u66ff\u6362\u540c\u4e00\u6587\u4ef6\u5939\u4e0b\u591a\u4e2aWORD\u6587\u6863\u4e2d\u7684\u76f8\u540c\u5185\u5bb9\uff1f

\u53ea\u80fd\u9010\u4e2aWORD\u66ff\u6362\uff0c\u5982\u5b9e\u5728\u592a\u591a\u6587\u6863\uff0c\u6709\u8fd9\u4e2a\u5fc5\u8981\uff0c\u53ef\u4ee5\u5728\u7f51\u4e0a\u627e\u8f6f\u4ef6\uff0c\u5c06\u4f17\u591a\u6587\u6863\u5408\u5e76\u5230\u8d77\u66ff\u6362

For i = 1 To n 'n\u662flistview1\u7684\u884c\u6570 Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = ListView1.ListItems(i).SubItems(0) 'Findstr=listview1\u7684\u7b2ci\u884c\u7b2c1\u5217\u5bf9\u5e94\u5355\u5143\u683c\u7684\u5185\u5bb9 .Replacement.Text = ListView1.ListItems(i).SubItems(1) 'Findstr=listview1\u7684\u7b2ci\u884c\u7b2c2\u5217\u5bf9\u5e94\u5355\u5143\u683c\u7684\u5185\u5bb9 .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchByte = True .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ListView1.selectedItem = i Next MsgBox "\u5904\u7406\u5b8c\u6bd5\uff01", vbInformation + vbOKOnly, "\u6d88\u606f" ListView1.selectedItem = 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 方法找到再修改

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

扩展阅读：word vba 日期 ... word vba教程完整版 ... 免费word在线编辑手机版 ... word vba 查找和替换 ... word vba等待几秒循环 ... word vba 参考手册 ... word vba批量替换 ... vba编程必背50个程序 ... word vba 表格 ...