在运行宏之前，需要根据实际情况修改替换的文本和文件夹路径，确保替换的文本和要批量替换的Word文件的后缀正确匹配。
可以通过使用VBA宏来批量替换多个Word文件的内容。以下是一个示例代码：
```vba
Sub 批量替换内容()
Dim filePath As String
Dim fileList() As String
Dim findText As String
Dim replaceText As String
Dim i As Integer
' 设置要查找和替换的文本
findText = "要查找的文本"
replaceText = "要替换的文本"
' 选择要批量替换的文件夹
With Application.FileDialog(msoFileDialogFolderPicker)
.Title = "请选择包含要批量替换的Word文件的文件夹"
If .Show = -1 Then
filePath = .SelectedItems(1)
Else
Exit Sub
End If
End With
' 获取文件夹中的所有Word文件
fileList = GetFiles(filePath, "*.docx")
' 遍历文件列表进行批量替换
For i = LBound(fileList) To UBound(fileList)
' 打开Word文档
Documents.Open (fileList(i))
' 执行查找和替换
With Selection.Find
.Text = findText
.Replacement.Text = replaceText
.Wrap = wdFindContinue
.Execute Replace:=wdReplaceAll
End With
' 关闭Word文档并保存更改
ActiveDocument.Close SaveChanges:=wdSaveChanges
Next i
' 清空变量
Erase fileList
End Sub
Function GetFiles(ByVal folderPath As String, ByVal fileExtension As String) As String()
Dim objFSO As Object
Dim objFolder As Object
Dim objFile As Object
Dim fileList() As String
Dim i As Integer
' 创建FileSystemObject对象
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(folderPath)
' 遍历文件夹中的文件，并将满足条件的文件加入到数组中
For Each objFile In objFolder.Files
If LCase(objFSO.GetExtensionName(objFile.path)) = LCase(fileExtension) Then
i = i + 1
ReDim Preserve fileList(1 To i)
fileList(i) = objFile.path
End If
Next objFile
' 清空变量
Set objFSO = Nothing
Set objFolder = Nothing
Set objFile = Nothing
' 返回文件列表数组
GetFiles = fileList
End Function
```
你只需要将上述代码粘贴到Word的VBA编辑器中（按下Alt+F11进入VBA编辑器），然后运行`批量替换内容`宏即可。在运行宏之前，需要根据实际情况修改替换的文本和文件夹路径，确保替换的文本和要批量替换的Word文件的后缀正确匹配。