numbering pages sequentially for a one page document

[Guest]

In MS Word (2003) I have been trying to figure out how to add page (for
printing purposes) numbers to a single page document. ex.; beginning from 300
- 330; then later print more beginning from 331 - 355. This is a one page
document that I need multiple copies of, but need each page to have a
different number. I can print many copies, but they all have the same page
number on them.
Thank you in advance

 

[Guest]

You need to use some programming.

Sub pageNum()
Dim intNum As Integer
For intNum = 300 To 330 <----you can change these numbers for desired range.
With Selection.Sections(1).Headers(1).PageNumbers
.StartingNumber = intNum
End With
Selection.Sections(1).Footers(1).PageNumbers.Add firstpage:=True
Application.PrintOut copies:=1
Next


End Sub

 

[Stefan Blom]

See also http://word.mvps.org/faqs/macrosvba/NumberCopiesOf1Doc.htm.

--
Stefan Blom
Microsoft Word MVP


in message
news:[email protected]...

 

[Guest]

09.05.2007

To Harvey & Stefan Blom;

Thanks for the reply; are you saying I have to know programming before I can
do something that should be almost an elementary task?

Because I know nothing about programming, nor do I know anything about
macros. I tried to use macro, and I do not understand the terminology it
uses. My head was spinning after the first sentence.

I remember doing it in Office 2000, but that was about 5 years ago, I don't
remember what I did, nor where to go to find out.

I hope there is a much more simplified answer out there somewhere . . .
thanks again

Anthony

 

[Suzanne S. Barnhill]

The macro has already been provided to you; see
http://www.gmayor.com/installing_macro.htm for instructions on installing
it.

--
Suzanne S. Barnhill
Microsoft MVP (Word)
Words into Type
Fairhope, Alabama USA

Email cannot be acknowledged; please post all follow-ups to the newsgroup so
all may benefit.

 

[Guest]

Anthony,

Although it seems elementary, any task that is not part of the standard
features of word needs some creativity and often programming. In this case
you don’t really need programming or even following lengthy instructions,
just you need to copy and paste the code I posted, in your word VBA editor
section.
Follow this simple instruction
1-In word Alt+F11 so see the VBA editor
2-from insert menu click on module
3-copy the following code and paste it there

Sub pageNum()

Dim intNum As Integer
For intNum = 300 To 330 ' <----you can change these numbers for desired range.
With Selection.Sections(1).Headers(1).PageNumbers
.StartingNumber = intNum
End With
Selection.Sections(1).Footers(1).PageNumbers.Add firstpage:=True
Application.PrintOut copies:=1
Next

End sub


4- change numbers (300,330) to any numbers you need those are lower and
upper number for page numbers.
5 while your Cursor blinking somewhere inside the block of the code you can
run the code using run menu\run macro.

this is as simple as it can get.

 

[Guest]

09.08.007

Suzanne & Harvey,

Again, thanks for the replies;

I went to the link provided and followed and I must need the Idiots' Guide
(squared, cubed or quad) to Installing Macros in order to get this to work
for me because I spent hours trying to do this.

When I did ALT+ F11, and if the cursor was not at the top, the word screen
split. Then, when I went to the Insert menu, the drop down portion did not
have module (nor any other drop down menu for that matter—I have Word 2003.);
so in essence, I am still trying to figure this out.

If it gets no simpler than that, I am really going to have problems with
this, because I had no clue it could or would be this taxing; but I have no
intention of quitting, I want to figure this out, hopefully before my next
birthday next May . . . <grin>


Anthony