vba例遍文件夹内所有word文件并为每个word文件替换文本

你可以使用 VBA 代码来遍历文件夹内的所有 Word 文件，并为每个 Word 文件替换文本。以下是示例代码：

Sub ReplaceTextInWordFiles()
Dim objFSO As Object
Dim objFolder As Object
Dim objFile As Object
Dim objWord As Object
Dim objDoc As Object
Dim strFolderPath As String
Dim strSearchString As String
Dim strReplaceString As String

'设置文件夹路径、搜索字符串和替换字符串
strFolderPath = "C:\WordFiles"
strSearchString = "apple"
strReplaceString = "orange"

'创建文件系统对象和文件夹对象
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(strFolderPath)

'创建 Word 应用程序对象
Set objWord = CreateObject("Word.Application")

'遍历文件夹内的所有 Word 文件
For Each objFile In objFolder.Files
If Right(objFile.Name, 4) = ".doc" Or Right(objFile.Name, 5) = ".docx" Then
'打开 Word 文档
Set objDoc = objWord.Documents.Open(objFile.Path)

'替换文本
objDoc.Content.Find.Execute FindText:=strSearchString, ReplaceWith:=strReplaceString, Replace:=wdReplaceAll

'保存并关闭 Word 文档
objDoc.Save
objDoc.Close
End If
Next objFile

'关闭 Word 应用程序对象
objWord.Quit
Set objWord = Nothing
End Sub