MS Word Macro to print multiple pages of single doc

[Kim B]

Hi everyone. This macro is meant to work in a word doc except it doesn't work. It is supposed to allow the user to print multiple copies of a single word document with a page number designation at the bottom of page to the right. In the lower rigth corner of word doc is bookmark named {Order}.

I am getting an error on ActiveDocument.Bookmarks line. Any suggestions?

Sub AutoNew()
Order = System.PrivateProfileString("C:\Settings.Txt", _
"MacroSettings", "Order")
If Order = "" Then
Order = 1
Else
Order = Order + 1
End If
System.PrivateProfileString("C:\Settings.txt", "MacroSettings", _
"Order") = Order
ActiveDocument.Bookmarks("Order").Range.InsertBefore Format(Order, "1#")
ActiveDocument.SaveAs FileName:="path" & Format(Order, "1#")
End Sub

 

[Macropod]

Hi Kim,

I am getting an error on ActiveDocument.Bookmarks line.

It would be helpful if you shared what the error message says.

For example, if the message is:

Runtime error '5941':

The requested member of the collection does not exist

that means the 'Order' bookmark is missing from the document.

 

[Kim B]

Sorry it took so long to respond to this post.

That is the error I am getting too.

 

[Macropod]

Hi Kim,

As I said:

that means the 'Order' bookmark is missing from the document.

The solution is simple: re-insert the 'Order' bookmark into the document wherever it should be.

 

[Kim B]

My apologies for the duplication in the response, didn't see the solution the first time. Just paid attention to the message in the box.