Marrick,
Try this revision:
oFld.Select 'Add this line
arrTemp(0, lngCOunt) = Selection.Information(wdActiveEndPageNumber) '.Code.Information(wdActiveEndPageNumber)
Show field codes in your document and I think you will see that the page numbers that were reported reflect where the expanded fields lie. With the revision above the true page numbers were returned here.
|