SaveAs problem
I can't seem to do a saveas, saveas2, or save without the saveas dialog coming up. I've got it down to some pretty simple code that repros the problem every time.
Sub TestSaveAs()
Const FILE_TO_OPEN = "c:\temp\testopen.docx"
Const FILE_TO_SAVE = "c:\temp\testsave.docx"
Dim wd As Word.Document
Set wd = Word.Documents.Open(FILE_TO_OPEN)
wd.SaveAs2 FILE_TO_SAVE
wd.Close False
End Sub
It never reaches the wd.close command unless I do an on error resume next.
This only started happening recently, about the same time my machine was automatically upgraded to Office 2016. Doesn't happen in Excel, unless I create a Word object and use the Word's SaveAs2 method.
I've rebooted, rolled back (but not before Office 2016, as the restore point is no longer available), and everything else I could think of. Very frustrated. :-(
|