如何在Word中将.doc格式文件批量转换为.docx?
假设您已收到一些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.在 文件格式转换器 对话框,您需要执行以下操作:
3.然后弹出一个对话框,告诉您已成功转换了多少文档,单击 OK 按钮并关闭 文件格式转换器 窗口。
现在,所有.doc格式的文档都将转换为.docx文件。 看截图:
如果您想免费试用该实用程序,请转到 免费下载软件 首先,然后按照上述步骤进行操作。
最佳办公生产力工具
Kutools for Outlook - 超过 100 种强大功能可增强您的 Outlook
🤖 人工智能邮件助手: 具有人工智能魔力的即时专业电子邮件——一键天才回复、完美语气、多语言掌握。轻松改变电子邮件! ...
📧 电子邮件自动化: 外出(适用于 POP 和 IMAP) / 安排发送电子邮件 / 发送电子邮件时按规则自动抄送/密件抄送 / 自动转发(高级规则) / 自动添加问候语 / 自动将多收件人电子邮件拆分为单独的消息 ...
📨 电子邮件管理: 轻松回忆电子邮件 / 按主题和其他人阻止诈骗电子邮件 / 删除重复的电子邮件 / 高级搜索 / 合并文件夹 ...
📁 附件专业版: 批量保存 / 批量分离 / 批量压缩 / 自动保存 / 自动分离 / 自动压缩 ...
🌟 界面魔法: 😊更多又漂亮又酷的表情符号 / 使用选项卡式视图提高 Outlook 工作效率 / 最小化 Outlook 而不是关闭 ...
👍 一键奇迹: 使用传入附件回复全部 / 反网络钓鱼电子邮件 / 🕘显示发件人的时区 ...
👩🏼🤝👩🏻 通讯录和日历: 从选定的电子邮件中批量添加联系人 / 将联系人组拆分为各个组 / 删除生日提醒 ...
超过 100特点 等待您的探索! 单击此处了解更多。