Increase Number Displayed with Each Print

[Guest]

I have a created a one page document that is numbered. I would like for the
number to increase (in regular increments of 1) with each copy printed so
that I do not have to manually change the number before each print.

Basically I am starting at 1001, and plan on printing 50 copies. I do not
want to have to print one, change the number to 1002, print another, change
the number to 1003, then print again. I'd like to just print 50 copies at
once and have the number automatically change for each copy. Is there an
option for this or a macro that could be created to do this?

Thanks,
Kat
(Using Microsoft Word 2003 on Windows XP)

 

[Jay Freedman]

See http://www.word.mvps.org/FAQs/MacrosVBA/NumberDocs.htm

--
Regards,
Jay Freedman
Microsoft Word MVP
Email cannot be acknowledged; please post all follow-ups to the newsgroup so
all may benefit.

 

[Guest]

Thanks, but http://www.word.mvps.org/FAQs/MacrosVBA/NumberCopiesOf1Doc.htm
seems to match what I really need. However I can't get it to work. I was
able to get the one you suggested to work (although that's more for invoices
and I need something more of a serial number), but it's not practical since
I'd have to keep closing the document to get the number to update.

Any hints to what I might need to do to get the
http://www.word.mvps.org/FAQs/MacrosVBA/NumberCopiesOf1Doc.htm one to work?

Thanks,
Kat

 

[Jay Freedman]

Exactly what does happen when you try the NumberCopies macro? If there's an
error message, quote it exactly; otherwise, describe what you see (or expect
but don't see).

--
Regards,
Jay Freedman
Microsoft Word MVP
Email cannot be acknowledged; please post all follow-ups to the newsgroup so
all may benefit.

 

[Guest]

I had copied the macro, but it doesn't seem to "save" so I therefore cannot
run it. For instance, the original example you provided me saved as an
AutoNum() and so I could play that macro. I have tried to save the copied
macro, but cannot seem to do it. I'm not sure if I'm not including
something, like a function AutoNum() and therefore it won't run, or if I'm
just copying too much/not enough. I copied everything that was indented.

~Kat

 

[Jay Freedman]

I'm not sure why the article was written the way it was, but the code
is missing the line

Sub SomeMacroName()

at the beginning (you can use any name you like where I wrote
SomeMacroName) and

End Sub

at the end.

See http://www.gmayor.com/installing_macro.htm for step-by-step
instructions.

--
Regards,
Jay Freedman
Microsoft Word MVP
Email cannot be acknowledged; please post all follow-ups to the
newsgroup so all may benefit.

 

[Guest]

Thanks! That did the trick!

I'm not sure why the article was written the way it was, but the code
is missing the line

Sub SomeMacroName()

at the beginning (you can use any name you like where I wrote
SomeMacroName) and

End Sub

at the end.

See http://www.gmayor.com/installing_macro.htm for step-by-step
instructions.

--
Regards,
Jay Freedman
Microsoft Word MVP
Email cannot be acknowledged; please post all follow-ups to the
newsgroup so all may benefit.