That's easy: simply replace the '3' with:
.ComputeStatistics(2) '2 = wdStatisticPages
Not from MS Office. You could, however, automate Adobe Acrobat Pro and have it do that. Adobe Acrobat Pro 8 is available as a free download. I don't know the relevant Adobe code to combine files, but people on an Adobe forum should be able to tell you that (or a web search might turn up the code).
Bookmarks