theDocument.sections[1].Range.Information[WdInformation.wdActiveEndPageNumber]
theDocument.sections[n].Range.Information[WdInformation.wdActiveEndPageNumber]-theDocument.sections[n-1].Range.Information[WdInformation.wdActiveEndPageNumber]
Login to post response