1 Тема от m.111

  • m.111
  • сержант
  • Неактивен
  • Зарегистрирован: 04.10.2010
  • Сообщений: 15

Тема: Макрос "Автоподбор по содержимому"

Всем привет! С наступившим Новым Годом и Рождеством! smile

Буду очень благодарен, если кто подскажет макрос, который проходится по всем таблицам в документе и выполняет функцию "Автоподбор по содержимому".

Заранее спасибо! smile

2 Ответ от Ципихович Эндрю

  • Ципихович Эндрю
  • генерал-полковник
  • Неактивен
  • Зарегистрирован: 04.02.2010
  • Сообщений: 506
  • Поблагодарили: 23

Re: Макрос "Автоподбор по содержимому"

Количество_таблиц_в_документе = ActiveDocument.Tables.Count 'переменная количеству таблиц в документе
For u = 1 To (Количество_таблиц_в_документе)
функцию "Автоподбор по содержимому" не делал побробуйте запись макрос и прочитать скрипт
Next

3 Ответ от m.111

  • m.111
  • сержант
  • Неактивен
  • Зарегистрирован: 04.10.2010
  • Сообщений: 15

Re: Макрос "Автоподбор по содержимому"

Ципихович Эндрю пишет:

Количество_таблиц_в_документе = ActiveDocument.Tables.Count 'переменная количеству таблиц в документе
For u = 1 To (Количество_таблиц_в_документе)
функцию "Автоподбор по содержимому" не делал побробуйте запись макрос и прочитать скрипт
Next

Спасибо что заглянули и за подсказку! smile
Только хотел Вам отписать, что проблема в том, что я когда макро рекодер включен, я не могу вызывать контекстное меню, и соответственно не мог выполнить действие "Автоподбор по содержимому". Потом подумал, что наверное где-то на панели инструменов есть то же самое. Я угадал smile
Итого, макрос очень простой.

Sub AutoFit()

For i = 1 To ActiveDocument.Tables.Count
    ActiveDocument.Tables(i).AutoFitBehavior (wdAutoFitContent)
Next i

End Sub