Я не думаю, что возможно инициировать действие, если таблица занимает более одной страницы. Однако можно проверить страницы в начале и конце таблицы.
Для начала таблицы
ActiveDocument.Tables(1).Range.Cells(1).Range.Information(wdActiveEndAdjustedPageNumber)
Для конца таблицы
ActiveDocument.Tables(1).Range.Cells(ActiveDocument.Tables(1).Range.Cells.Count).Range.Information(wdActiveEndAdjustedPageNumber)
В приведенном выше примере я использовал ActiveDocument. На практике вы будете использовать переменную, возвращающую диапазон.
Вы также, вероятно, захотите упростить строки, поместив их в поле С / Конец с помощью
With ActiveDocument.Tables(1).Range
my_first_page =.Information(wdActiveEndAdjustedPageNumber)
my_last_page = .Cells(.Cells.Count).Range.Information(wdActiveEndAdjustedPageNumber)
End With