Thread: [Solved] SaveAs problem
View Single Post
 
Old 05-01-2016, 08:58 PM
SixSigmaGuy SixSigmaGuy is offline Windows 10 Office 2016
Novice
 
Join Date: May 2016
Posts: 4
SixSigmaGuy is on a distinguished road
Default 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. :-(
Reply With Quote