Batch Convert .doc Format Files to .docx with VBA Code
Step by step
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.
Step 1
Please collect all .doc format documents you will convert to .docx in a specified folder.
Step 2
Open Word and press the Alt + F11 key to open the Microsoft Visual Basic for Applications window.
Step 3
In the window, click Insert > Module. Then copy below VBA code into the Module window.
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
Step 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. Then all .doc format documents are converted to .docx documents immediately.
