如何在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中做得更聰明，更快和更好。
