如何在 Word 中批量将 .doc 文件转换为 .docx 格式？

Author: Siluvia Last Modified: 2025-05-07

如果您收到了多个旧版 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

The VBA code is pasted into the Module window

按 F5 运行代码。在弹出的浏览窗口中，选择包含 .doc 文件的文件夹，然后点击确定.

所选文件夹中的所有 .doc 格式文件将立即被转换为 .docx 文件，如下图所示：

All .doc format documents are converted to .docx documents

使用 Kutools for Word 批量将 .doc 文件转换为 .docx 格式

本节介绍了一种用于批量转换的便捷工具。通过 Kutools for Word 的 Doc/Docx 工具，您可以轻松地通过几次点击将文件夹中的所有 .doc 格式文档转换为 .docx 格式。请按照以下步骤操作：

Kutools for Word，内置 AI 🤖，提供超过 100 种实用功能，助您简化任务。

立即下载

在空白文档中，点击 Kutools Plus > Doc/Docx.
在 文档格式转换 窗口中，按照以下步骤操作：
1. 从类型下拉菜单中选择 Doc 转 Docx。
2. 点击添加需要转换的文档：
  - 选择文件以添加单个文档。
  - 选择文件夹以添加特定文件夹中的所有文档。
3. 默认情况下，PDF 文件将保存到与源文件相同的位置。若要更改位置，请点击浏览按钮并选择新的目标位置。
4. 可选地，勾选成功后删除源文件框，在 PDF 创建后移除原始文件。
5. 可选地，勾选保持源文件的更改时间框以保留原始文件元数据。
6. 所有设置完成后，点击确定。
转换完成后，将出现一个对话框，指示有多少文档已成功转换。点击确定按钮并关闭文档格式转换窗口。