Note: The other languages of the website are Google-translated. Back to English

如何在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。 在裡面 文件格式轉換器 對話框,您需要執行以下操作:

2.1)選擇包含.doc格式文檔的文件夾 源文件文件夾 部分;
2.2)選擇 將doc轉換成docx 來自 格式轉換 下拉列表;
2.3)默認情況下, 目標路徑與源相同 框被選中。 如果要將所有已轉換的.docx文檔放置在同一文件夾中,只需選擇此選項即可;
如果要將.docx文檔和源.doc文檔分開,請取消選中 目標路徑與源相同 框,然後選擇一個新文件夾將.docx文檔保存在 儲存 框;
2.4)點擊 開始 按鈕。 看截圖:

3.然後會彈出一個對話框,告訴您已成功轉換了多少文檔,單擊 OK 按鈕並關閉 文件格式轉換器 窗口。

現在,所有.doc格式的文檔都將轉換為.docx文件。 看截圖:

如果您想免費試用該實用程序,請轉到 免費下載軟件 首先,然後按照上述步驟進行操作。


Kutools for Outlook-為Outlook帶來100個高級功能,並使工作更加輕鬆!

  • 自動CC / BCC 根據規則發送電子郵件; 自動前進 自定義多封電子郵件; 自動回复 沒有交換服務器,還有更多自動功能...
  • BCC警告 -當您嘗試全部答复時顯示消息 如果您的郵件地址在“密件抄送”列表中; 缺少附件時提醒,還有更多提醒功能...
  • 在郵件對話中回复(全部)帶有所有附件; 回复許多電子郵件 片刻之間; 自動添加問候語 回复時將日期添加到主題中...
  • 附件工具:管理所有郵件中的所有附件, 自動分離, 全部壓縮,重命名全部,保存全部...快速報告, 計算選定的郵件...
  • 強大的垃圾郵件 習俗 刪除重複的郵件和聯繫人... 使您能夠在Outlook中做得更聰明,更快和更好。
拍攝kutools前景kutools選項卡1180x121
拍攝kutools前景kutools加標籤1180x121
 
按評論排序
留言 (15)
還沒有評分。 成為第一位評論!
網站主持人對此評論進行了最小化
贊! 感謝分享。 這非常有幫助。 我有超過 50 個文檔需要轉換。 僅用了 000 多個小時就完成了所有工作。 巨大的幫助。 我使用了選項 39
網站主持人對此評論進行了最小化
打開要轉換為 PDF 文件的 Word 文檔。 如果您只想導入... ConvertOnlineFree - Word 文檔到 PDF 的單個和批量對話... PDFOnline - 免費 Word(doc、docx 和 txt)到 PDF 轉換器。

不錯的博客,你分享的文章很好。這篇文章很有用。 我的朋友建議我使用這個博客。

https://customersurveyinfo.com
網站主持人對此評論進行了最小化
你好,謝謝分享。
網站主持人對此評論進行了最小化
有趣的東西要讀。 保持。
網站主持人對此評論進行了最小化
你好,
我很高興找到這些有用的信息感謝分享這篇精彩的文章。
網站主持人對此評論進行了最小化
嗨....嗨,這個博客內容非常技術性信息,它是我所擁有的最好的博客之一。 非常有趣並以非常簡單的方式描述。
網站主持人對此評論進行了最小化
你好,先生,
我喜歡這篇文章。我真的很感謝這個網站。你的信息是如此的好和有價值。分享這個網站的可愛的想法和概念。
這是一個了不起的網站。這篇文章很好。
感謝分享
網站主持人對此評論進行了最小化
HelloNice 帖子.. 繼續分享。謝謝
網站主持人對此評論進行了最小化
這是一篇非常有見地的文章,發現它非常有用且信息豐富
網站主持人對此評論進行了最小化
感謝您分享這些有用的信息。
網站主持人對此評論進行了最小化
印度最好的平面設計公司
設計是一種將文字作為表達方式進行交流的工藝。 在高級領域,視覺比文字更重要。
設計行業的專家建議,插圖比文字更容易回憶,
這就是網站設計和圖形發揮重要作用的原因。

網站主持人對此評論進行了最小化
感謝分享
網站主持人對此評論進行了最小化
很棒的信息非常有用,謝謝分享。

農場 60
網站主持人對此評論進行了最小化
不錯的工具,但我遇到了問題,我無法將 DOC 文件(用大寫字母編寫!)轉換為 docx 文件。
它適用於 doc 文件。
網站主持人對此評論進行了最小化
嗨,
以下代碼可以幫助轉換這兩個文檔。 和醫生。 文件轉換為 docx 文件。 請試一試。 感謝您的反饋意見。

Sub ConvertDocToDocx()
'Updated by ExtendOffice 20220506
    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(VBA.LCase(xFileName), "doc", "docx"), wdFormatDocumentDefault
        ActiveDocument.Close
        xFileName = Dir()
    Wend
    Application.ScreenUpdating = True
End Sub
這裡還沒有評論
留下你的意見
以訪客身份發帖
×
評價此帖子:
0  字符
推薦地點