我找到了如下解决方案:
GetPageNumberOfRange(BookmarkA.Range)
Public Function GetPageNumberOfRange(ByVal range As Microsoft.Office.Interop.Word.Range) As Integer
Return range.Information(Microsoft.Office.Interop.Word.WdInformation.wdActiveEndPageNumber)
End Function