Numbering Prints with Numbers 1, 2, 3

[Barbara]

Hello!

I'm trying to create a macro which will number my word
document with the numbers 1, 2, 3 because I need 3 prints
of this document.

I found the documentation "Sequentially numbering multiple
copies of single document using a macro", but I don't want
the numbering going on, it shall only use the number 1, 2
and 3.

I really tried, but I can't figure out how I can change
this macro the way I want it to work....

Thanks a lot for your help.

Regards from Switzerland

Barbara

 

[Klaus Linke]

Hi Barbara,

To make sure: You just want to keep a single copy of the document, but
print it three times?

And the number should appear somewhere (in the header or footer) in print?

It might be easiest to just add it there manually.

If the number has to appear in different locations, you could for example
use a custom document property (right-most tab in "File > Properties"; say,
"Dokumentnummer", choose "Number" as the type, then type in some number,
say, "1", as the value).

You can then put this number anywhere in your text in a DOCPROPERTY field:
{ DOCPROPERTY "Dokumentnummer" }

You just have to change the number once in "File > Properties", and all
DOCPROPERTY fields are updated when you print.

If you always need three printed versions with numbers 1, 2, 3, you might
write a macro that changes the custom document property "Dokumentnummer" to
1, 2, and 3, and prints it:

Dim i As Long
For i = 1 To 3
With ActiveDocument
.CustomDocumentProperties("Dokumentnummer") = i
.PrintOut
End With
Next i

If you want to print to a specific printer, with specific settings, you can
use the macro recorder to give you the necessary code to use instead of the
simple ".PrintOut".

Regards,
Klaus