Sequential numbering across multiple docs

macropod · #18 06-11-2019, 04:17 PM

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.

Thread Tools
Show Printable Version Email this Page
Display Modes
Switch to Linear Mode Switch to Hybrid Mode Threaded Mode

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