Here’s a handy little function that tells you if the end of a Range in Word VBA lies on the last page of the document:
Function IsLastPage(rng As Word.Range) As Boolean IsLastPage = CBool(rng.Information(wdActiveEndPageNumber) = rng.Information(wdNumberOfPagesInDocument)) End Function
The Range.Information function is very useful. Check it out!
We hope it comes in handy.