Force save after opening a template based file

gmayor · #5 03-19-2016, 12:10 AM

Your document also saves as strFilename, which doesn't exist in your code. As Paul indicates the document should be docx format and the code is in the template. The code when edited to

Code:

Option Explicit
Private Sub Document_New()
Dim intChoice As Integer
Dim strPathName As String
    intChoice = Application.FileDialog(msoFileDialogSaveAs).Show
    If intChoice <> 0 Then
        strPathName = Application.FileDialog(msoFileDialogSaveAs).SelectedItems(1)
        ActiveDocument.SaveAs2 Filename:=strPathName, FileFormat:=wdFormatXMLDocument
    End If
End Sub

saves as docx and the document can certainly be opened without error.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
How to Force a "Save As" for a fillable form	cbalogh	Word	6	01-27-2014 05:50 PM
save as filtered HTML – force graphics format to .png	eNGiNe	Word	2	01-23-2014 06:27 AM
Force User to Save As	lgillespie	Word	6	09-09-2013 03:13 PM
VBA Code to force 'Save As'	rossi45	Excel Programming	1	05-11-2012 03:05 PM
Template "File In Use" when opening 2 documents based on the same template	wendt	Word	5	12-15-2009 12:37 AM