Sequentially number 100 pages of a document

webba0264 · #1 06-09-2016, 12:29 PM

Hello board,

I am working in MS-Word 2007.

I have a regular document containing an ID box in the top-left hand side. It is not located within a header or a footer (See photo below)

sis.jpg

Here is my situation: I need 100 copies of this page, and each needs a unique number. In the photo, where you see "5000," I need the next page to contain "5001" in the same place.

I tried to mailmerge (I have the data source numbered), but that just put "5000" in all 100 pages of my document.

I need page 1 to say "5000" and page 100 to say "5099".

Please help! Thank you all

macropod · #2 06-09-2016, 03:31 PM

See, for example: https://www.msofficeforums.com/word-...html#post34477

webba0264 · #3 06-10-2016, 06:55 AM

I have no idea what I am looking at or how to apply it. If I did, I wouldn't have needed to ask for help... can you please at least describe what is going on in the demo?

I see a word document with a Form number at the top. I don't understand how that would help a novice at all.

macropod · #4 06-10-2016, 02:15 PM

The attachment contains a Word template with a macro that prompts you to specify a start & end number. It then generates a series of pages numbered accordingly. The numbers and other content are in the page header. Did you allow Word to run the macro (it runs automatically if you do)?

webba0264 · #5 02-15-2017, 09:47 AM

Quote:

Originally Posted by macropod

The attachment contains a Word template with a macro that prompts you to specify a start & end number. It then generates a series of pages numbered accordingly. The numbers and other content are in the page header. Did you allow Word to run the macro (it runs automatically if you do)?

Hi Macropod - I was able to open the macro, and I was able to locate the field prompts "What is the first number?" etc within the script.

My question, as I don't fully understand the mechanics here, is what is required for this code to run within my document (attached)

Thank you much- AW

webba0264 · #6 02-15-2017, 09:50 AM

Is there a way to have the ## in the header update sequentially with each new page? I am trying to start at number 3000 and go through 3099.

webba0264 · #7 02-15-2017, 10:21 AM

Here is my situation: I need 100 copies of this page, and each needs a unique number. In the attached document, where you see "3000," I need the next page to generate "3001" in the same place (all the way to 3099).

I am still trying to figure this out.

Please help! Thank you all

macropod · #8 02-15-2017, 03:37 PM

I see no indication from your attachment that you've made any attempt to implement the solution in the link I provided. Doing so would be a trivial undertaking - all you need do is put the table into the page header, split the table so the number to be updated is in a cell of it's own, then put the field code in that cell.

webba0264 · #9 02-17-2017, 10:58 AM

Quote:

Originally Posted by macropod

I see no indication from your attachment that you've made any attempt to implement the solution in the link I provided. Doing so would be a trivial undertaking - all you need do is put the table into the page header, split the table so the number to be updated is in a cell of it's own, then put the field code in that cell.

Hi Macropod - I didn't fail to implement it out of sloth... I just don't understand how to do so. I've looked at your demo .dot document dozens of times...

"Put the table into the page header..." <--- What table?
"Split the table so the number to be updated is in a cell of it's own..." <--- Again, what table?
"...put the field code in that cell." <--- Within your demo, where is the field code?

I apologize for my amateurism here and do greatly appreciate your help.

webba0264 · #10 02-17-2017, 11:05 AM

Quote:

Originally Posted by macropod

I see no indication from your attachment that you've made any attempt to implement the solution in the link I provided. Doing so would be a trivial undertaking - all you need do is put the table into the page header, split the table so the number to be updated is in a cell of it's own, then put the field code in that cell.

Within the VBA script, is this correct for wanting sheets numbered 3000-3099?

Quote:

Option Explicit
Private Sub Document_New()
Call Document_Open
End Sub
Private Sub Document_Open()
Dim iStart As Long, iEnd As Long, iCount As Long
On Error GoTo Done
iStart = InputBox(3000, 3000)
iEnd = InputBox(3099, 3099, iStart)
If IsNumeric(iStart) = False Or IsNumeric(iEnd) = False Then GoTo Done
If iStart > iEnd Or iEnd = 0 Then GoTo Done
iCount = iEnd - iStart
With ActiveDocument
Application.ScreenUpdating = False
.Sections.First.Headers(wdHeaderFooterPrimary).Pag eNumbers.StartingNumber = iStart
.Range.Delete
For iCount = iStart To iEnd - 1
.Range.InsertAfter Text:=Chr(12)
Next iCount
Application.ScreenUpdating = True
End With
Done:
End Sub

macropod · #11 02-17-2017, 02:27 PM

Quote:

Originally Posted by webba0264

"Put the table into the page header..." <--- What table?
"Split the table so the number to be updated is in a cell of it's own..." <--- Again, what table?

This is getting ridiculous. That whole shaded box in your document is a table...

Quote:

Originally Posted by webba0264

"...put the field code in that cell." <--- Within your demo, where is the field code?

Perhaps you should read https://www.msofficeforums.com/word-...html#post34488

Quote:

Originally Posted by webba0264

Within the VBA script, is this correct for wanting sheets numbered 3000-3099?

No. Why not just leave the macro code alone???

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
How to automatically make word document have even number of total pages?	lorne17	Word	6	12-16-2014 02:48 PM
Advanced page numbering: section pages in header, document pages in footer	Albus	Word	12	12-12-2014 01:36 PM
Sequentially numbered copies of multi-page word document	Mark Paterson	Word VBA	3	05-16-2014 04:34 PM
Count Number of Pages in Document with Footnotes	d4okeefe	Word VBA	5	11-11-2013 11:02 AM
Sequentially numbering a document	UniAdmin	Word VBA	1	02-21-2013 07:25 PM