Experts Exchange connects you with the people and services you need so you can get back to work.
Dim doc As Word.Document
Dim strInFolder As String
Dim strOutFolder As String
Dim strFileName As String
strInFolder = "C:\MyFolder" 'edit this to your match your folder
strOutFolder = "C:\MyNewFolder" 'and this folder
strFileName = Dir$(strInFolder & "\*.doc") ' find the first file in the folder
Do Until strFileName = ""
Set doc = Documents.Open(strInFolder & "\" & strFileName)
doc.SaveAs Replace(strFileName, ".doc", ".docx", , vbTextCompare), wdFormatXMLDocument
strFileName = Dir$()
Open in new window
Sign up to receive Decoded, a new monthly digest with product updates, feature release info, continuing education opportunities, and more.
Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.
Have a better answer? Share it in a comment.
Please enter a first name
Please enter a last name
Must be at least 4 characters long.
Join and Comment
From novice to tech pro — start learning today.
Premium members can enroll in this course at no extra cost.