| 如何在Word中将.doc格式文件批量转换为.docx？ | 您所在的位置：网站首页 › word改为docx格式 › 如何在Word中将.doc格式文件批量转换为.docx？ |
如何在Word中将.doc格式文件批量转换为.docx？
|
如何在Word中将.doc格式文件批量转换为.docx？
假设您已收到一些97-2003格式的Word文档，如何将所有这些.doc格式文档一次批量转换为.docx格式？ 本文将向您展示两种解决此问题的方法。 使用VBA代码将.doc格式文件批量转换为.docx 将 .doc 格式文件批量转换为 .docx Kutools for Word 使用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 ：拥有100多个方便的Word加载项， 免费试用，没有限制 60 天. 1.请在指定的文件夹中收集所有.doc格式的文档，然后单击 Kutools 加 > 文件/文件。 看截图：
2.在 文件格式转换器 对话框，您需要执行以下操作： 2.1）选择包含.doc格式文档的文件夹 源文件文件夹 部分; 2.2）选择 将doc转换成docx 来自 格式转换 下拉列表; 2.3）默认情况下， 目标路径与源相同 框被选中。 如果要将所有已转换的.docx文档放置在同一文件夹中，只需选择此选项即可； 如果要将.docx文档和源.doc文档分开，请取消选中 目标路径与源相同 框，然后选择一个新文件夹将.docx文档保存在 存到 框; 2.4）点击 Start 开始 按钮。 看截图：
3.然后弹出一个对话框，告诉您已成功转换了多少文档，单击 OK 按钮并关闭 文件格式转换器 窗口。
现在，所有.doc格式的文档都将转换为.docx文件。 看截图： 如果您想免费试用该实用程序，请转到 免费下载软件 首先，然后按照上述步骤进行操作。 Kutools for Outlook - 为 Outlook 带来 100 项高级功能，让工作更轻松！ 自动CC / BCC 根据规则发送电子邮件； 自动转发 自定义多封电子邮件； 自动回复 没有交换服务器，还有更多自动功能... BCC警告 -当您尝试全部答复时显示消息 如果您的邮件地址在“密件抄送”列表中; 缺少附件时提醒，还有更多提醒功能... 在邮件对话中回复（全部）带有所有附件; 回复许多电子邮件 很快; 自动添加问候语 回复时将日期添加到主题中... 附件工具：管理所有邮件中的所有附件， 自动分离, 全部压缩，全部重命名，全部保存...快速报告， 计算选定的邮件... 强大的垃圾邮件 习俗 删除重复的邮件和联系人... 使您能够在Outlook中做得更聪明，更快和更好。 
阅读更多
现在下载...
|
【本文地址】