Sequentially number 100 pages of a document

macropod · #1 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 · #2 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 · #3 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 · #4 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???

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

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