Convert Microsoft Word `.doc` files to Word `.docx` files with VBA

WordDocIntoDocx.vba

Sub WordDocIntoDocx()

' convert Word .doc files to Word .docx
' Organize all files to be processed in one directory.
' Open Word and press “Alt+ F11” to open the VBA editor.
' Click “Normal” project and click “Insert” after it.
' Choose “Module” to insert a new module in the project.
' Paste the Code, update the file path (strFolder variable), and Run the code.

  Dim objWordApplication As New Word.Application
  Dim objWordDocument As Word.Document
  Dim strFile As String
  Dim strFolder As String

  'set to correct directory
  strFolder = "C:\DocIntoDocx\"

  strFile = Dir(strFolder & "*.doc", vbNormal)

  While strFile <> ""
    With objWordApplication
      Set objWordDocument = .Documents.Open(FileName:=strFolder & strFile, AddToRecentFiles:=False, ReadOnly:=True, Visible:=False)
      With objWordDocument
        .SaveAs FileName:=strFolder & Replace(strFile, "doc", "docx"), FileFormat:=16
        .Close
      End With

    End With

    strFile = Dir()

  Wend

  Set objWordDocument = Nothing
  Set objWordApplication = Nothing

End Sub