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

2024-06-24 21:51| 来源: 网络整理| 查看: 265

如何在Word中将.doc格式文件批量转换为.docx？添加一名作者最后修改时间：2021-03-19

假设您已收到一些97-2003格式的Word文档，如何将所有这些.doc格式文档一次批量转换为.docx格式？本文将向您展示两种解决此问题的方法。

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

使用VBA代码将.doc格式文件批量转换为.docx

本部分将向您展示VBA代码，该代码可将指定文件夹中的所有.doc格式文档立即转换为.docx文档。请执行以下操作。

1.请在指定文件夹中收集所有将转换为.docx的.doc格式文档。

2。按其他 + F11 键打开 Microsoft Visual Basic应用程序窗口。

3.在窗口中，单击插页 > 模块。然后将下面的VBA代码复制到“模块”窗口中。

VBA代码：将某个文件夹中的所有.doc格式文档批量转换为.docx

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

4。按 F5 键来运行代码。在开幕浏览窗口，选择包含.doc格式文档的文件夹，然后单击 OK。看截图：

然后，所有.doc格式的文档都会立即转换为.docx文档，如下图所示。

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

本节将推荐一个方便的实用程序。随着文件/文件实用程序 Kutools for Word，您可以轻松地将文件夹中的所有.doc格式文档转换为.docx文档。请尝试如下。

Kutools for Word ：拥有100多个方便的Word加载项，免费试用，没有限制 60 天.

1.请在指定的文件夹中收集所有.doc格式的文档，然后单击 Kutools 加 > 文件/文件。看截图：

2.在文件格式转换器对话框，您需要执行以下操作：

2.1）选择包含.doc格式文档的文件夹源文件文件夹部分; 2.2）选择将doc转换成docx 来自格式转换下拉列表; 2.3）默认情况下，目标路径与源相同框被选中。如果要将所有已转换的.docx文档放置在同一文件夹中，只需选择此选项即可；如果要将.docx文档和源.doc文档分开，请取消选中目标路径与源相同框，然后选择一个新文件夹将.docx文档保存在存到框; 2.4）点击 Start 开始按钮。看截图：