Ципихович Эндрю пишет:Количество_таблиц_в_документе = ActiveDocument.Tables.Count 'переменная количеству таблиц в документе
For u = 1 To (Количество_таблиц_в_документе)
функцию "Автоподбор по содержимому" не делал побробуйте запись макрос и прочитать скрипт
Next
Спасибо что заглянули и за подсказку!
Только хотел Вам отписать, что проблема в том, что я когда макро рекодер включен, я не могу вызывать контекстное меню, и соответственно не мог выполнить действие "Автоподбор по содержимому". Потом подумал, что наверное где-то на панели инструменов есть то же самое. Я угадал
Итого, макрос очень простой.
Sub AutoFit()
For i = 1 To ActiveDocument.Tables.Count
ActiveDocument.Tables(i).AutoFitBehavior (wdAutoFitContent)
Next i
End Sub