Try:
Code:
Private Sub Document_New()
Application.ScreenUpdating = False
Dim InvNum As String
With ThisDocument
InvNum = .CustomDocumentProperties("InvNum") + 1
.CustomDocumentProperties("InvNum") = InvNum
.Save
End With
With ActiveDocument
'Update the value stored in the document property
.CustomDocumentProperties("InvNum") = InvNum
'Update the fields in the document
.FormFields("ECNNUM").Result = InputBox("Please enter the ECN number. ")
.Fields.Update
End With
Application.ScreenUpdating = True
With Application.Dialogs(wdDialogFileSaveAs)
.Name = "c:\My Documents\SaveExample.docx"
.Format = wdFormatXMLDocument
.Show
End With
End Sub
I note that you commented-out the .Save for the template. Do that and the numbers won't increment unless you tell Word to save the changes to the template when you exit Word. Furthermore, in a multi-user environment, that promotes the duplication of numbers if multiple users are creating these documents at the same time.