如何在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 for Applications 窗口。
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-為Outlook帶來100個高級功能,並使工作更加輕鬆!
- 自動CC / BCC 根據規則發送電子郵件; 自動前進 自定義多封電子郵件; 自動回复 沒有交換服務器,還有更多自動功能...
- BCC警告 -當您嘗試全部答复時顯示消息 如果您的郵件地址在“密件抄送”列表中; 缺少附件時提醒,還有更多提醒功能...
- 在郵件對話中回复(全部)帶有所有附件; 回复許多電子郵件 片刻之間; 自動添加問候語 回复時將日期添加到主題中...
- 附件工具:管理所有郵件中的所有附件, 自動分離, 全部壓縮,重命名全部,保存全部...快速報告, 計算選定的郵件...
- 強大的垃圾郵件 習俗 刪除重複的郵件和聯繫人... 使您能夠在Outlook中做得更聰明,更快和更好。
















