Sequential numbering across multiple docs

macropod · #1 06-10-2019, 07:18 PM

For your situation, it would probably be best to create a Custom Document Property named 'InvNum' in the template, then use code like:

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
End Sub

Do note that the number will increment every time a new document is created from the template. If someone does that, then doesn't save the new document, you'll invariably end up with gaps in the numbers in the saved documents. You can, of course, manually edit the 'InvNum' Custom Document Property in the template, but it's better to avoid the situation in the first place. More complex code could be used to ensure the numbers are only updated when the template is closed, but you then run the risk of the same number being allocated twice if two or more documents are being created at the same time.

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