$doc->Words->Item($i)->Select;
    my $page = $word->Selection->Information(wdActiveEndPageNumber);