How could I program a VBA macro to count the number of pages in a word document?

Thanks in advance.