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

閱讀更多... 現在下載...