Sequential numbering across multiple docs

wolfgrrl · #16 06-11-2019, 10:30 AM

I've got this code working now.

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
  .Fields.Update
End With
Application.ScreenUpdating = True
ActiveDocument.FormFields("ECNNUM").Result = InputBox("Please enter the ECN number. ")
ActiveDocument.Fields.Update
End Sub

I've tried to add this code to force a "Save As" on document_new, but the last place I used this code was on document_open.

Code:

 With Application.Dialogs(wdDialogFileSaveAs)
    .Name = "c:\My Documents\SaveExample.docm"
    .Format = wdFormatXMLDocumentMacroEnabled
    .Show

Is there code that will force a save such as this that will work in document_new? This is the very last step to getting this template to functions as I'd like.

Thank you for all your assistance!

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
How do I do a Sequential Numbering?	gburya	Word VBA	26	07-04-2017 03:29 PM
Sequential Page Numbering of Multiple Word Docs	bobmard	Word	8	08-24-2011 08:51 AM
Editing multiple docs	frankdh	Word	2	11-02-2010 10:59 AM
Please help with Numbering a document with multiple letters.	DJReality213	Office	1	01-15-2010 05:56 PM
Amend footer in multiple word docs?	compact	Word	2	02-24-2009 09:40 AM