如何在 Word 中批量将 .doc 文件转换为 .docx 格式?
如果您收到了多个旧版 97-2003 格式的 Word 文档,逐个将它们转换为现代的 .docx 格式可能会非常耗时。本指南介绍了两种高效的方法来批量将 .doc 文件转换为 .docx:使用 VBA 代码或功能强大的 Kutools for Word 插件。
使用 VBA 代码批量将 .doc 文件转换为 .docx 格式
使用 Kutools for Word 批量将 .doc 文件转换为 .docx 格式
使用 VBA 代码批量将 .doc 文件转换为 .docx 格式
本节演示了如何使用 VBA 代码一次性将指定文件夹中的所有 .doc 格式文件转换为 .docx 文件。请按照以下步骤操作:
- 将所有要转换的 .doc 文件收集到一个文件夹中。
- 按 Alt + F11 打开 Microsoft Visual Basic for Applications 窗口。
- 在 VBA 窗口中,点击 插入 > 模块。将以下 VBA 代码复制并粘贴到模块窗口中:
Sub ConvertDocToDocx() 'Updated by ExtendOffice 20181128 Dim xDlg As FileDialog Dim xFolder As Variant Dim xFileName As String Application.ScreenUpdating = False Set xDlg = Application.FileDialog(msoFileDialogFolderPicker) If xDlg.Show <> -1 Then Exit Sub xFolder = xDlg.SelectedItems(1) + "\" xFileName = Dir(xFolder & "*.doc", vbNormal) While xFileName <> "" Documents.Open FileName:=xFolder & xFileName, _ ConfirmConversions:=False, ReadOnly:=False, AddToRecentFiles:=False, _ PasswordDocument:="", PasswordTemplate:="", Revert:=False, _ WritePasswordDocument:="", WritePasswordTemplate:="", Format:= _ wdOpenFormatAuto, XMLTransform:="" ActiveDocument.SaveAs xFolder & Replace(xFileName, "doc", "docx"), wdFormatDocumentDefault ActiveDocument.Close xFileName = Dir() Wend Application.ScreenUpdating = True End Sub
- 按 F5 运行代码。在弹出的 浏览 窗口中,选择包含 .doc 文件的文件夹,然后点击 确定.
所选文件夹中的所有 .doc 格式文件将立即被转换为 .docx 文件,如下图所示:

使用 Kutools for Word 批量将 .doc 文件转换为 .docx 格式
本节介绍了一种用于批量转换的便捷工具。通过 Kutools for Word 的 Doc/Docx 工具,您可以轻松地通过几次点击将文件夹中的所有 .doc 格式文档转换为 .docx 格式。请按照以下步骤操作:
- 在空白文档中,点击 Kutools Plus > Doc/Docx.
- 在 文档格式转换 窗口中,按照以下步骤操作:
- 从类型下拉菜单中选择 Doc 转 Docx。
- 点击
添加需要转换的文档:
- 选择文件以添加单个文档。
- 选择文件夹以添加特定文件夹中的所有文档。
- 默认情况下,PDF 文件将保存到与源文件相同的位置。若要更改位置,请点击 浏览 按钮
并选择新的目标位置。
- 可选地,勾选成功后删除源文件框,在 PDF 创建后移除原始文件。
- 可选地,勾选保持源文件的更改时间框以保留原始文件元数据。
- 所有设置完成后,点击确定。
- 转换完成后,将出现一个对话框,指示有多少文档已成功转换。点击确定按钮并关闭文档格式转换窗口。
现在,所有 .doc 格式的文档都已成功转换为 .docx 文件。
最佳Office办公效率工具
Kutools for Word - 用超过100项强大功能全面提升你的Word体验!
🤖 Kutools AI 功能:AI助手 / 实时助手 / 超级润色(保留格式)/ 超级翻译(保留格式)/ AI遮挡 / AI校正……
📘 文档掌控:分割页面 / 文档合并 / 区域导出为多种格式(PDF/TXT/DOC/HTML等)/ 批量转换为PDF……
✏ 正文编辑:跨多个文件批量查找与替换 / 一键调整所有图片大小 / 翻转表格行列 / 表格转文本……
🧹 高效清理:一扫多余空格 / 分节符 / 文本框 / 超链接 / 想了解更多删除工具,请前往删除分组……
➕ 创意插入:插入千位区分符 /复选框 /选项按钮 / 二维码 / 条形码 / 批量插入图片 / 更多内容请见插入分组……
🔍 精准选取:快速定位指定页面 / 表格 / 形状 / 标题段落 / 利用更多 选择 功能提升导航体验……
⭐ 实用增强:跳转任意区域 / 自动插入重复文本 / 文档窗口间一键切换 /11 项转换工具……
🌍 支持40多种语言:自由选择你喜欢的界面语言——Kutools支持英语、西班牙语、德语、法语、中文及其他40余种语言!

✨ Kutools for Office – 一次安装,五大强力工具集成!
内含 Office Tab Pro · Kutools for Excel · Kutools for Outlook · Kutools for Word · Kutools for PowerPoint
📦 五大工具一站式集成 | 🔗 无缝兼容Microsoft Office | ⚡立即提升效率、节省时间