Word文字批量替换+文件名批量修改 详细教程
一、批量替换Word文档文本内容（VBA宏实现）
适用场景
快速替换多份已打开Word文档中的指定文本，适配Office/WPS Word，一键完成批量处理，避免手动逐份修改。
操作步骤
启用Word「开发工具」选项卡
若界面未显示，点击「文件」→「选项」→「自定义功能区」，勾选右侧「开发工具」，点击确定。打开VBA编辑器
按下快捷键 Alt + F11，调出VBA编辑界面。插入模块并粘贴代码
在左侧「工程资源管理器」中，右键「Normal」→「插入」→「模块」，将以下代码粘贴到右侧代码编辑区：
Sub BatchReplaceProjectName() Dim doc As Document Dim findText As String, replaceText As String Dim processedCount As Integer: processedCount = 0 Dim errorCount As Integer: errorCount = 0 ' ======== 您指定的固定替换内容（已写死）======== findText = "***项目" replaceText = "***项目" ' =============================================== ' 关闭屏幕更新与警告弹窗，防止中断 Application.ScreenUpdating = False Application.DisplayAlerts = False ' 遍历所有已打开的文档 For Each doc In Documents On Error Resume Next ' 捕获异常，避免单文件出错导致整个宏停止 With doc.Range.Find .ClearFormatting .Text = findText .Replacement.Text = replaceText .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False ' 执行替换 If .Execute(Replace:=wdReplaceAll) Then processedCount = processedCount + 1 End If End With ' 保存为 .docx（清除宏，避免后续打开时弹安全警告） If Err.Number = 0 Then doc.SaveAs2 FileName:=doc.FullName, FileFormat:=wdFormatXMLDocument, AddToRecentFiles:=False Else errorCount = errorCount + 1 Err.Clear End If Next doc ' 恢复设置 Application.DisplayAlerts = True Application.ScreenUpdating = True ' 提示结果 MsgBox "? 批量替换完成！" & vbCrLf & _ "? 已成功处理 " & processedCount & " 个文档" & vbCrLf & _ "? 出现错误 " & errorCount & " 个（可能是文件被占用或只读）", _ vbInformation, "处理结果" End Sub
4. 修改替换内容并运行
将代码中 findText = “旧文本内容”、replaceText = “新文本内容” 替换为实际需要的文字；
按下 F5 键运行宏，或关闭VBA编辑器，在Word「开发工具」→「宏」中选择「BatchReplaceProjectName」点击「运行」。
注意事项
• 运行前请确保需要处理的Word文档均已打开，且无只读/被其他程序占用的情况；
• 建议先备份文档，避免替换错误造成数据丢失；
• 运行后文档会自动保存，原宏格式会转为普通docx格式，消除安全警告。
二、批量修改Word文件名（Python脚本实现）
适用场景
批量修改指定文件夹下Word文件的名称，支持精准替换文件名中的指定文字，适配所有格式文件（仅需将文件放入指定目录即可）。
前置准备
电脑已安装Python环境（任意版本均可）；
安装依赖库：打开「命令提示符（CMD）」，输入以下命令并回车：
pipinstallpywin32操作步骤
整理文件
将所有需要修改名称的Word文件，放入单独的空文件夹中（避免误改其他文件）；创建Python脚本
在该文件夹中，新建一个文本文档，将后缀名改为 .py（如「batch_rename.py」）；粘贴并修改脚本代码
用记事本打开新建的py文件，粘贴以下代码，将旧文本/新文本替换为实际需要修改的内容：
在这里插入代码片 findText=""replaceText=""
importosimportre# 定义原始和目标项目名称original_project_name="***项目"new_project_name="***目"# 遍历当前目录下的所有文件forfilenameinos.listdir('.'):ifos.path.isfile(filename):# 确保是文件而不是文件夹# 使用正则表达式查找并替换文件名中的项目名称new_filename=re.sub(original_project_name,new_project_name,filename)ifnew_filename!=filename:# 如果文件名有改变，则重命名文件os.rename(filename,new_filename)print(f'Renamed "{filename}" to "{new_filename}"')- 运行脚本
双击该py文件，等待命令行窗口执行完成，即可看到文件夹内文件名已批量修改，窗口会打印每一个文件的处理结果。
注意事项
• 脚本仅修改文件名，不修改文件内的内容，可与上述VBA宏配合使用；
• 确保文件夹内无重名文件，否则会提示“已存在”并跳过；
• 若修改后文件名无变化，检查代码中「original_text」是否与文件名中的文字完全匹配（区分中英文/空格）。
三、组合使用技巧
先将所有需要处理的Word文件放入同一文件夹，用Python脚本批量修改文件名；
打开所有修改后的Word文档，用VBA宏批量替换文档内的文本内容；
整套操作可在几分钟内完成数十/上百份文件的处理，大幅提升基础事务工作效率。