You still have 'Wdobj.Quit' inside the loop! Instead of:
Wdobj.ActiveDocument.SaveAs2 Filename:=savename & ".docx"
Wdobj.Quit
You should have:
.SaveAs2 Filename:=savename & ".docx"
.Close False
You still have 'Wdobj.Quit' inside the loop! Instead of:
Wdobj.ActiveDocument.SaveAs2 Filename:=savename & ".docx"
Wdobj.Quit
You should have:
.SaveAs2 Filename:=savename & ".docx"
.Close False
Cheers
Paul Edstein
[Fmr MS MVP - Word]
Posting Permissions
Reply With Quote