Если у вас есть документ, содержащий довольно много таблиц, возможно, вы ищете способ изменить ширину всех таблиц в документе. Например, стандарты вашей компании могут требовать, чтобы все таблицы были одинаковой ширины, простираясь от левого края до правого.

Если у вас в документе сорок или более таблиц, изменение ширины каждой из них по отдельности может быть очень утомительным.

Следующий макрос, ResizeAllTables, быстро сделает то, что он говорит — изменит размер всех таблиц. Ширина таблиц регулируется так, чтобы заполнить доступные поля.

Sub ResizeAllTables()

Dim oTbl As Table     For Each oTbl In ActiveDocument.Tables         oTbl.AutoFitBehavior wdAutoFitFixed         With ActiveDocument.PageSetup             oTbl.PreferredWidth = .PageWidth - .LeftMargin - .RightMargin         End With     Next oTbl End Sub

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

_Примечание: _

Если вы хотите знать, как использовать макросы, описанные на этой странице (или на любой другой странице на сайтах WordTips), я подготовил специальную страницу, содержащую полезную информацию.

link: / wordribbon-WordTipsMacros [Щелкните здесь, чтобы открыть эту специальную страницу в новой вкладке браузера].

WordTips — ваш источник экономичного обучения работе с Microsoft Word.

(Microsoft Word — самая популярная программа для обработки текстов в мире.) Этот совет (11487) применим к Microsoft Word 2007, 2010, 2013, 2016, 2019 и Word в Office 365. Вы можете найти версию этого совета для старый интерфейс меню Word здесь:

link: / word-Expanding_Width_of_All_Tables [Расширение ширины всех таблиц].