如何在Word中将.doc格式文件批量转换为.docx？-英雄云拓展知识分享

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

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

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

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

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

2。 按 其他 + F11 键打开 Microsoft Visual Basic for Applications 窗口。

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

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

Sub ConvertDocToDocx()
' 20181128
Dim xDlg As FileDialog
Dim xFolder As Variant
Dim xFileName As String
Application.ScreenUpdating = False
Set xDlg = Application.FileDialog(msoFileDialogFolderPicker)
If xDlg.Show <> ⑴ 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文档，以下图所示。

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

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

：具有100多个方便的Word加载项， 免费试用，不受限制 60 天.

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

2。 在里面 文件格式转换器 对话框，您需要履行以下操作：

3.然后会弹出一个对话框，告知您已成功转换了多少文档，单击 OK 按钮并关闭 文件格式转换器 窗口。

现在，所有.doc格式的文档都将转换为.docx文件。 看截图：

如果您想免费试用该实用程序，请转到 免费下载软件 首先，然后依照上述步骤进行操作。