1

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

В 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
Удобной и приятной работы в Word!
Перевести спасибо на Яндекс кошелёк - 41001162202962; на WebMoney - R581830807057.

2

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

Однако, в версии Word 2010 просматривать таблицы стало проще.
На панели Навигация размещена команда Найти таблицы (панель Навигация - поле Найти - стрелочка вниз - команда Таблицы (см. прилагаемый рисунок)).
Макрос для просмотра таблиц

На этой же панели можно также отобрать все рисунки, формулы, сноски и т.д.

Удобной и приятной работы в Word!
Перевести спасибо на Яндекс кошелёк - 41001162202962; на WebMoney - R581830807057.

3

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

Подскажите пожалуйста, каким образом можно выделить все таблицы документа для последующего форматирования? Либо задать формат шрифта и кегля для текста всех таблиц документа. Последовательное форматирование нескольких десятков страниц в нескольких десятках документов потребует слишком много времени и сил.

4

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

igorkosten пишет:

Подскажите пожалуйста, каким образом можно выделить все таблицы документа для последующего форматирования? Либо задать формат шрифта и кегля для текста всех таблиц документа. Последовательное форматирование нескольких десятков страниц в нескольких десятках документов потребует слишком много времени и сил.

Аналогичный вопрос рассматривался здесь:
внешняя ссылка
Для форматирования всех таблиц документа можно обойтись без выделения всех таблиц.
Коллеги предложили следующее решение:

 Dim oTable As Table
  For Each oTable In ThisDocument.Tables
    'выполняем нужное форматирование
  Next
Удобной и приятной работы в Word!
Перевести спасибо на Яндекс кошелёк - 41001162202962; на WebMoney - R581830807057.