Selection.Information (Word)

Returns information about the specified selection.

Information (Type)

Type: The information type.

MsgBox "The selection is on page " & _ 
 Selection.Information(wdActiveEndPageNumber) & " of page " _ 
 & Selection.Information(wdNumberOfPagesInDocument)