اگر سندی دارید که حاوی چند جدول است، ممکن است به دنبال راهی برای تغییر عرض همه جداول در سند باشید. به عنوان مثال، استانداردهای شرکت شما ممکن است مستلزم این باشد که همه جداول دارای عرض یکسان باشند و از سمت چپ به سمت راست کشیده شوند. اگر چهل جدول یا بیشتر در یک سند دارید، تغییر عرض همه آنها به صورت جداگانه می تواند بسیار خسته کننده باشد.
ماکرو زیر، 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
پس از تکمیل ماکرو، همچنان باید هر جدول را بررسی کنید تا مطمئن شوید که عرض ستون های شما برای داده های شما مناسب است، اما عرض کلی جداول همانطور که انتظار داشتید خواهد بود.
