Макрос для просмотра таблиц

В Word 2007 и более ранних версиях было затруднительно просматривать все таблицы документа.
Для этих целей был разработан специальный макрос, который помогает быстро просмотреть все таблицы в большом документе. Макрос выполняет переход к следующей таблице.
После разового запуска этого макроса следующие таблицы можно найти с помощью стандартного сочетания клавиш Ctrl+Alt+Y:

Sub GoToNextTable01()
    Set myRange = ActiveDocument.Words(1).GoToNext(What:=wdGoToPage)
    With Selection
        Set myRange = .GoToNext(What:=wdGoToTable)
        .MoveRight Unit:=wdWord, Extend:=wdExtend
    End With
End Sub