如何在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 - 超過 100 種強大的功能可增強您的 Outlook

🤖 人工智慧郵件助手: 具備人工智慧魔力的即時專業電子郵件——一鍵天才回覆、完美語調、多語言掌握。輕鬆改變電子郵件！ ……

📧 電子郵件自動化: 外出（適用於 POP 和 IMAP） / 安排發送電子郵件 / 發送電子郵件時按規則自動抄送/密件副本 / 自動轉送（進階規則） / 自動添加問候語 / 自動將多收件者電子郵件拆分為單獨的訊息 ...

📨 電子郵件管理: 輕鬆回憶電子郵件 / 按主題和其他人阻止詐騙電子郵件 / 刪除重複的電子郵件 / 進階搜索 / 合併資料夾 ...

📁 附件專業版: 批量保存 / 批量分離 / 批量壓縮 / 自動保存 / 自動分離 / 自動壓縮 ...

👍 一鍵奇蹟: 使用傳入附件回覆全部 / 反網路釣魚電子郵件 / 🕘顯示寄件者的時區 ...

👩🏼‍🤝‍👩🏻 通訊錄和行事曆: 從選定的電子郵件中大量新增聯絡人 / 將聯絡人群組拆分為各組 / 刪除生日提醒 ...

超過 100特點 等待您的探索！按此處了解更多。

閱讀更多免費下載購買

Comments (14)

No ratings yet. Be the first to rate!

Daniel Beneš

about 1 year ago

#41106

This comment was minimized by the moderator on the site

Dobrý den,
já bych potřeboval, ale VBA script který by fungoval včetně podsložek. Umíte někdo prosím upravit i tento skript? Děkuji.

ENG:
Good day,
I would need a VBA script that would work including subfolders. Can someone please edit this script as well? Thank you.

crystal Daniel Beneš

about 1 year ago

#41445

This comment was minimized by the moderator on the site

Hi Daniel Beneš,
To include subfolders, please try the following VBA code.
After adding the code, go to the Tools tab, click References, in the opening References - Project dialog box, check the Microsoft Scripting Runtime box, and then click the OK button to save the changes. See the following screenshot:

https://www.extendoffice.com/images/stories/comments/comment-picture-zxm/check-scripting_runtime.png

After that, press the F5 key to run the code.

Sub ConvertDocToDocx()
'Updated by ExtendOffice 20221124
  Dim xDlg As FileDialog
  Dim xFldPath As Variant
  Dim xFileName As String
  On Error Resume Next
  Application.ScreenUpdating = False
  Set xDlg = Application.FileDialog(msoFileDialogFolderPicker)
  If xDlg.Show <> -1 Then Exit Sub
  xFldPath = xDlg.SelectedItems(1) + "\"
  Call ListAllFiles(xFldPath)
  Application.ScreenUpdating = True
End Sub

Function ListAllFiles(FldPath)
  Dim xFSO As FileSystemObject
  Dim xFolder As Folder
  Dim xSubFolder As Folder
  Dim xNewName As String
  On Error Resume Next
  xFileName = Dir(FldPath & "*.doc", vbNormal)
  While xFileName <> ""
    xNewName = VBA.Left$(xFileName, VBA.InStrRev(xFileName, "doc") - 1) & "docx"
    Documents.Open FileName:=FldPath & xFileName, _
        ConfirmConversions:=False, ReadOnly:=False, AddToRecentFiles:=False, _
        PasswordDocument:="", PasswordTemplate:="", Revert:=False, _
        WritePasswordDocument:="", WritePasswordTemplate:="", Format:= _
        wdOpenFormatAuto, XMLTransform:=""
    ActiveDocument.SaveAs FldPath & xNewName, wdFormatDocumentDefault
    ActiveDocument.Close
    xFileName = Dir()
  Wend
  Set xFSO = CreateObject("Scripting.FileSystemObject")
  Set xFolder = xFSO.GetFolder(FldPath)
  For Each xSubFolder In xFolder.SubFolders
    Call ListAllFiles(xSubFolder.Path + "\")
  Next
  Set xFSO = Nothing
  Set xFolder = Nothing
End Function

Report

Marco

about 1 year ago

#37864

This comment was minimized by the moderator on the site

Nice tool but I got the problem, that I can't convert DOC files (written in capitals!) into docx files.
It works with doc files.

crystal Marco

about 1 year ago

#37883

This comment was minimized by the moderator on the site

Hi,
The following code can help to convert both doc. and DOC. files into docx files. Please give it a try. Thanks for your feedback.

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

Report

thehairstylish

about 2 years ago

#37155

This comment was minimized by the moderator on the site

Thanks for sharing

narendra

about 2 years ago

#35352

This comment was minimized by the moderator on the site

best graphic design company in india
Designing is a craft of communicating words as articulations. Visuals matter more than words in the advanced field.
The experts in the designing business recommend that illustrations are simpler to recall than words,
and that is the reason Website designing and Graphics play an imperative job.

Report

ajumas

about 3 years ago

#34917

This comment was minimized by the moderator on the site

Thanks for sharing this useful information.

Report

uaevisaonline

about 3 years ago

#34732

This comment was minimized by the moderator on the site

This is really insightful article , found it very helpful and informational

Report

shriya gupta

about 3 years ago

#34341

This comment was minimized by the moderator on the site

HelloNice post .. Keep sharing.Thank You

Radha

about 3 years ago

#33657

This comment was minimized by the moderator on the site

Hello sir,
I love with this post.I really appreciate for this website.Your information is so good and valuable.Lovable idea and concept for sharing this website.
This is an amazing website.This post is nice.
Thanks for sharing

Lipika

about 3 years ago

#33568

This comment was minimized by the moderator on the site

Hi....Hi, This blog content very technical information, it is on of the best blog i have got. Very interesting and describe in a very easy way.

Massey Tractor

about 4 years ago

#32093

This comment was minimized by the moderator on the site

Hello,
I am glad to find this useful information Thanks for sharing this amazing article.

There are no comments posted here yet

Please leave your comments in English

Posting as Guest

Name (Required)

Email (Required)

Rate this post:

Reset

0 Characters

更新日誌

功能教程

得到幫助？