excel中用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 strSearchText As String
Dim strReplaceText As String

'设置文件夹路径和要查找和替换的文本
strFolderPath = "C:\TestFolder\"
strSearchText = "old text"
strReplaceText = "new text"

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

'创建Word对象
Set objWord = CreateObject("Word.Application")
objWord.Visible = False

'遍历文件夹中的所有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)

'查找和替换文本
With objDoc.Content.Find
.Text = strSearchText
.Replacement.Text = strReplaceText
.Execute Replace:=wdReplaceAll
End With

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

'关闭Word对象
objWord.Quit
Set objWord = Nothing
End Sub