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

How to batch convert .doc format files to .docx in Word?

Supposing you have received some 97-2003 format Word documents, how can you batch convert all these .doc format documents to .docx format at once? This article will show you two methods to solve this problem.

Batch convert .doc format files to .docx with VBA code
Batch convert .doc format files to .docx with Kutools for Word

Batch convert .doc format files to .docx with VBA code

This section is going to show you the VBA code to convert all .doc format documents in a specified folder to .docx documents at once. Please do as follows.

1. Please collect all .doc format documents you will convert to .docx in a specified folder.

2. Press the Alt + F11 key to open the Microsoft Visual Basic for Applications window.

3. In the window, click Insert > Module. Then copy below VBA code into the Module window.

VBA code: Batch convert all .doc format documents to .docx in a certain folder

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. Press the F5 key to run the code. In the opening Browse window, select the folder contains the .doc format documents and click OK. See screenshot:

Then all .doc format documents are converted to .docx documents immediately as below screenshot shown.

Batch convert .doc format files to .docx with Kutools for Word

A handy utility will be recommended in this section. With the Doc/Docx utility of Kutools for Word, you can easily convert all .doc format documents in a folder to .docx documents. Please try as follows.

Kutools for Word : With more than 100 handy Word add-ins, free to try with no limitation in 60 days.

1. Please collect all .doc format documents in a specified folder, then click Kutools Plus > Doc/Docx. See screenshot:

2. In the Document Format Converter dialog box, you need to do as follows:

2.1) Select the folder contains .doc format documents in the Source file folder section;
2.2) Select Convert doc to docx from the Format Convert drop-down list;
2.3) By default, the Destination path same as source box is checked. If you want to place all converted .docx documents in the same folder, just keep this option selected;
If you want to separate the .docx documents and the source .doc documents, please uncheck the Destination path same as source box, and select a new folder to save the .docx documents in the Save to box;
2.4) Click the Start button. See screenshot:

3. Then a dialog box pops up to tell you how many documents have been successfully converted, click the OK button and close the Document Format Converter window.

Now all .doc format documents are converted to .docx files. See screenshot:

If you want to have a free trial of this utility, please go to free download the software first, and then go to apply the operation according above steps.

Kutools for Outlook - Brings 100 Advanced Features to Outlook, and Make Work Much Easier!

  • Auto CC/BCC by rules when sending email; Auto Forward Multiple Emails by custom; Auto Reply without exchange server, and more automatic features...
  • BCC Warning - show message when you try to reply all if your mail address is in the BCC list; Remind When Missing Attachments, and more remind features...
  • Reply (All) With All Attachments in the mail conversation; Reply Many Emails in seconds; Auto Add Greeting when reply; Add Date into subject...
  • Attachment Tools: Manage All Attachments in All Mails, Auto Detach, Compress All, Rename All, Save All... Quick Report, Count Selected Mails...
  • Powerful Junk Emails by custom; Remove Duplicate Mails and Contacts... Enable you to do smarter, faster and better in Outlook.
shot kutools outlook kutools tab 1180x121
shot kutools outlook kutools plus tab 1180x121
 
Comments (15)
No ratings yet. Be the first to rate!
BigB7v1
BigB7v1
This comment was minimized by the moderator on the site
Kudos! Thanks for sharing. This was extremely helpful. I had over 50, 000 documents that needed to be converted. Took just a touch over 39 hours to get them all done. Huge help. I used option 1
Reply
Richard876
Richard876     BigB7v1
This comment was minimized by the moderator on the site
Open the Word document you want to turn into a PDF file. If you wish to import only ... ConvertOnlineFree - individual and batch conversations of Word docs to PDF ... PDFOnline - free Word (doc, docx and txt) to PDF converter.

Nice blog, the article you have shared is good.This article is very useful. My friend suggest me to use this blog.

https://customersurveyinfo.com
Reply
Report
Radha
Radha     Richard876
This comment was minimized by the moderator on the site
Hello, thanks for sharing.
Reply
George56
George56
This comment was minimized by the moderator on the site
Interesting stuff to read. Keep it up.
Reply
Massey Tractor
Massey Tractor
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.
Reply
Lipika
Lipika
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.
Reply
Radha
Radha
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
Reply
shriya gupta
shriya gupta
This comment was minimized by the moderator on the site
HelloNice post .. Keep sharing.Thank You
Reply
uaevisaonline
uaevisaonline
This comment was minimized by the moderator on the site
This is really insightful article , found it very helpful and informational
Reply
Report
ajumas
ajumas
This comment was minimized by the moderator on the site
Thanks for sharing this useful information.
Reply
Report
narendra
narendra
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.

Reply
Report
thehairstylish
thehairstylish
This comment was minimized by the moderator on the site
Thanks for sharing
Reply
Aman
Aman
This comment was minimized by the moderator on the site
Great information Very useful thanks for sharing.

<a href="https://www.tractorjunction.com/powertrac-tractor/euro-60/">Farmtrac 60</a>
Reply
Marco
Marco
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.
Reply
crystal
crystal     Marco
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
Reply
Report
There are no comments posted here yet
Leave your comments
Guest
Posting as Guest
Login
×
Rate this post:
Reset
0   Characters
Suggested Locations