Word has no means of doing that unless you insert Section breaks either side of your Heading 1 ranges and insert a SECTIONPAGES field in the footer for each of those Sections. The macro code inserts a Section break before each Heading 1, which may suffice, but I really have no idea what your interpretation of a Heading 1 range is; for all I know, it might end at the next Heading 1 (in which case all you need do is insert the SECTIONPAGES field in the footer) or somewhere before then (in which case more work is needed).

__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]