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

作者Siluvia修改日期2025-01-24

如果您手头有多个旧版 97-2003 .doc 格式的 Word 文档，逐一转换为新版 .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 for Word，搭载 AI 功能🤖，提供超过 100 项实用功能，助您轻松完成各类任务。

立即下载

在空白文档中，点击 KUTOOLS PLUS > Doc/Docx。
在文档格式转换窗口中，按照以下步骤操作：
1. 在转换格式下拉菜单中选择 Doc 转 Docx。
2. 单击，添加需要转换的文档：
  - 选择文件，即可添加单个文档。
  - 选择文件夹，即可添加指定文件夹内的所有文档。
3. 默认情况下，Pdf 文件会保存到源文件所在的位置。如需更改保存位置，请点击浏览按钮，选择新的目标路径。
4. 如有需要，可勾选成功后删除源文件选项，在生成 PDF 后即可自动删除原文件。
5. 如有需要，可勾选保持源文件的更改时间选项，即可保留原文件元数据。
6. 在全部设置完成后，单击确定。
转换完成后，将弹出对话框，显示成功转换的文档数量。点击确定按钮即可关闭文档格式转换窗口。