Prevent File Save Dialog appearing?

Question

I have been using Excel 2010 to create Word Documents and then use .SaveAs to save the newly created file without any issues
When I moved to Office 2013 the same code now presents a File Save dialog box.
I have researched the issue and can find no way to prevent the Dialog appearing (and worse regardless of the user selection the Excel code crashes)
The following is a simplified version of the troublesome code
Sub TestWordSaveAs2()
Dim InvoiceProFormaFileName As Variant
Dim NewFileName As String
Dim WordApplication As Object
Dim WordDoc As Object
  ' Prompt for a word document
  InvoiceProFormaFileName = Application.GetOpenFilename(FileFilter:="Word Documents, *.docx", Title:="Any Word File", MultiSelect:=False)
  Set WordApplication = CreateObject("Word.Application")
  Set WordDoc = WordApplication.Documents.Open(InvoiceProFormaFileName) ' Open the pro-forma invoice
  ' Create a new name
  NewFileName = Replace(InvoiceProFormaFileName, ".docx", "2.docx")
  WordDoc.SaveAs2 Filename:=NewFileName, FileFormat:=16, AddtoRecentFiles:=False ' <======= this line Shows the File Save Dialog and then fails
  WordDoc.Close SaveChanges:=0 ' wdDoNotSaveChanges
  ' Finished with the Word Application so can close
  WordApplication.Quit
End Sub
Thank you in advance

Answer 1

Hi,
I have create a doc file and a excel file in my pc, after I run the code you have provided ,and choose the doc file I just created, it runs without any save dialog. And My Office is Pro Plus 2013 .
I have upload my sample to OneDrive, you can download it here:
http://1drv.ms/1DhnMe5
When you run this sample, will this show the save dialog again ?
To narrow down this issue, can you create a new empty word and choose it in the excel, does it will happen again? if it is convenient, can you share the doc file you're using? Have you update your office ?
We are trying to better understand customer views on social support experience, so your participation in this interview project would be greatly appreciated if you have time. Thanks for helping make community forums a great place.
Click
HERE to participate the survey.