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!

Charles Kenyon · #17 06-11-2019, 01:27 PM

Try

ActiveDocument.Save

It should bring up a save dialog in a new document. This is what it produces in Word 2019.

00 deleteme 1.png

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.

wolfgrrl · #19 06-12-2019, 04:00 AM

@macropod,

I copied the code as it was posted. The save command was commented out in the original post

I'll try this new code and see how it works. Thank you!

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to 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