かなりの数のテーブルを含むドキュメントがある場合は、ドキュメント内のすべてのテーブルの幅を変更する方法を探している可能性があります。たとえば、会社の標準では、すべてのテーブルを同じ幅で、左マージンから右マージンに拡張する必要がある場合があります。

ドキュメントに40以上のテーブルがある場合、それらすべての幅を個別に変更するのは非常に面倒です。

次のマクロ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_は、費用効果の高いMicrosoftWordトレーニングのソースです。

（Microsoft Wordは、世界で最も人気のあるワードプロセッシングソフトウェアです。）このヒント（11487）は、Microsoft Word 2007、2010、2013、2016、2019、およびOffice 365のWordに適用されます。このヒントのバージョンは、ここにWordの古いメニューインターフェイス：

link：/ word-Expanding_Width_of_All_Tables [すべてのテーブルの幅を拡張する]。