Printing multiple copies of docm from Word to PDF saving file with sequential name- 001, 002 etc.

SSCMapletart · #1 04-11-2017, 06:38 AM

I am wanting to reduce steps...
Is there a way I can print multiple copies of a document from Word 2010 to Adobe PDF with the print automatically programmed to save file with a sequential number after the name - (e.g. DocName-001, -002, -003 etc.) Let's say... set to print 50 copies and I can walk away from my PC for an hour!
I would like the same number represented in a field on the front page of the document.
Thank you

Charles Kenyon · #2 04-11-2017, 10:34 AM

Why are you wanting to save the files?

The following may help:
Automatic numbering of Word documents by Graham Mayor

macropod · #3 04-11-2017, 06:30 PM

Quote:

Originally Posted by SSCMapletart

I am wanting to reduce steps...
Is there a way I can print multiple copies of a document from Word 2010 to Adobe PDF with the print automatically programmed to save file with a sequential number after the name - (e.g. DocName-001, -002, -003 etc.)

Why do you want to 'print' the documents to PDF rather than simply using Word's built-in SaveAs PDF option?

If all you need do is print the documents on paper with sequential numbering, there is no need to save them. See, for example:
https://www.msofficeforums.com/word-...numbering.html
https://www.msofficeforums.com/word-...html#post34477

If you really do need to generate PDFs, you could use the document setup described in the first link above, but with the following macro:

Code:

Sub MultiFileSave()
Dim lStart As Long, lEnd As Long, i As Long
On Error GoTo ErrHandler
With ActiveDocument
  lStart = CInt(InputBox("What is the first # to create?", _
    "Numbered Document Copier", .CustomDocumentProperties("Counter").Value + 1))
  lEnd = CInt(InputBox("What is the last # to create?", _
    "Numbered Document Copier", lStart))
  If lStart = 0 Or lStart > lEnd Then GoTo ErrHandler
  For i = lStart To lEnd
    .CustomDocumentProperties("Counter").Value = i
    .Fields.Update
    .SaveAs2 Split(.FullName, ".doc")(0) & "-" & Format(i, "000") & ".pdf", _
      Fileformat:=wdFormatPDF, AddToRecentFiles:=False
  Next
End With
ErrHandler:
End Sub

The output will be saved in the same folder and with the same name as the document you're using, except they'll be PDFs numbered as per your specification.

SSCMapletart · #4 04-18-2017, 03:04 AM

Thank you both
I work in an (ethical) investment bank - everything is saved, recorded and filed away!
I'll give the macro a try
Regards, SSC

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
I'm not sure if this is possible; regarding forms and file saving/printing.	Stench	Word	1	05-09-2015 01:41 AM
DOCM file not saving on Microsoft Word 2010	flutterby1	Word	4	10-08-2014 10:55 AM
Excel saving copies instead of changes	SJM512	Excel	1	08-06-2013 11:35 AM
A newbie question: a must to save macro word file as .docm?	tinfanide	Word VBA	6	12-06-2011 03:02 PM
Sequential Page Numbering of Multiple Word Docs	bobmard	Word	8	08-24-2011 08:51 AM