VBA编辑器实现文件夹内所有的WORD文档的批量查找替换

以下是一个基本的VBA代码，可以实现批量查找替换文件夹内所有的WORD文档：

Sub BatchFindReplace()

Dim strFolder As String
Dim strFile As String
Dim wdDoc As Document
Dim i As Long

'设置需要查找替换的文件夹路径
strFolder = "C:\Users\UserName\Documents\TestFolder\"

'设置需要查找替换的文本内容
Dim strFind As String
strFind = "Old Text"

'设置替换为的文本内容
Dim strReplace As String
strReplace = "New Text"

'循环遍历文件夹内的所有WORD文档
strFile = Dir(strFolder & "*.docx")
While strFile <> ""
Set wdDoc = Documents.Open(strFolder & strFile)

'执行查找替换操作
With wdDoc.Content.Find
.Text = strFind
.Replacement.Text = strReplace
.Wrap = wdFindContinue
.Execute Replace:=wdReplaceAll
End With

'保存并关闭当前文档
wdDoc.Save
wdDoc.Close

'继续下一个文档
strFile = Dir
Wend

'弹出提示框，提示查找替换操作已完成
MsgBox "Batch Find and Replace Completed!"

End Sub

请注意，以上代码仅适用于批量替换WORD文档中的纯文本内容。如果需要替换其他类型的内容，例如表格、图片等，需要使用不同的方法。此外，在运行此代码之前，请务必备份您的文档，以避免意外删除或修改。