Print Continuous Page Numbers Excel & Word Document

[njvbguy]

I need to print a Excel & Word document as 1 combined document. It is very
important the page numbers be accurate because it is a legal doument. The
Excel part prints first, and then a 5 or 6 page word document prints at the
end. The page number format on the entire document is "Page 4 of 20"
(4=Current Page, 20=Total pages both documents). I have all the code working
except I can't figure out how to start the Word document with page 16
(Assuming 15 is the last page of the Excel document that is printed). I never
did anything in Word VBA before this, I have been doing Excel VBA for years.

 

[Jean-Guy Marcil]

I need to print a Excel & Word document as 1 combined document. It is very
important the page numbers be accurate because it is a legal doument. The
Excel part prints first, and then a 5 or 6 page word document prints at the
end. The page number format on the entire document is "Page 4 of 20"
(4=Current Page, 20=Total pages both documents). I have all the code working
except I can't figure out how to start the Word document with page 16
(Assuming 15 is the last page of the Excel document that is printed). I never
did anything in Word VBA before this, I have been doing Excel VBA for years.

You need code like this:

With ActiveDocument.Sections(1).Headers(1).PageNumbers
.RestartNumberingAtSection = True
.StartingNumber = 16
End With

This code assumes that the numbering is in the primary header of the first
section of the document.