Lizには複数のドキュメントがあり、それぞれにコンテンツを含む複数のテーブルがあります。

これらのテーブルは、行数が異なる単純な2列のテーブルです。

現在、テーブルの列幅はコンテンツによって異なります。 Lizは、すべてのテーブルの列幅を同じにする必要があります（たとえば、最初の列は5.25 “、2番目の列は1.25″）。

彼女は、各テーブルの列幅を一度に1つずつ設定する以外に、これを実現する方法があるかどうか疑問に思います。

Lizが説明しているように、これらが多数のテーブルを含む既存のドキュメントである場合、このタスクを実行する唯一の方法はマクロを使用することです。

使用するテクニックは、実際には別の_WordTip_で説明されており、ここで見つけることができます：

`link:/office-skill-ja/wordribbon-T011693

そのヒントで説明されている手法はリズの状況に適用できますが、いくつかの変更を加えるだけでさらに適用可能にすることができます。たとえば、Lizは、すべてのテーブルに2つの列があることを示しています。ただし、（何らかの理由で）列数が異なるテーブルが1つか2つある場合、2つの列を予期するマクロは、これらの他のテーブルに大混乱をもたらす可能性があります。列数が異なるテーブルをスキップするこのマクロについて考えてみます。

Sub SetTableWidths()

Dim t As Table     Dim iFixed As Integer     Dim iSkipped As Integer     Dim sTemp As String

iFixed = 0     iSkipped = 0     For Each t In ActiveDocument.Tables         If t.Columns.Count = 2 Then             t.Columns(1).Width = InchesToPoints(5.25)

t.Columns(2).Width = InchesToPoints(1.25)

iFixed = iFixed + 1         Else             iSkipped = iSkipped + 1         End If     Next t     sTemp = "Tables Fixed: " & iFixed & vbCr     sTemp = sTemp & "Tables Skipped: " & iSkipped     MsgBox sTemp End Sub

マクロを実行すると、ドキュメント内のすべての2列のテーブルの幅が調整されます。完了すると、修正されたテーブルの数（2列のテーブルの数）とスキップされたテーブルの数（2列より少ないまたは多いテーブル）が表示されます。

このマクロベースのアプローチは、すでにテーブルが含まれているドキュメントに最適です。ただし、新しいドキュメントを作成する場合は、「標準」テーブルを作成して、それをビルディングブロックとして保存することを検討する必要があります。

これにより、開発中にそのようなテーブルをドキュメントに簡単に配置できます。これを行う方法は、別の_WordTip_で説明されています：

T006076

注：

このページ（または_WordTips_サイトの他のページ）で説明されているマクロの使用方法を知りたい場合は、役立つ情報を含む特別なページを用意しました。

WordTipsMacros [ここをクリックして、その特別なページを新しいブラウザタブで開きます] `。

_WordTips_は、費用効果の高いMicrosoftWordトレーニングのソースです。

（Microsoft Wordは、世界で最も人気のあるワードプロセッシングソフトウェアです。）このヒント（13749）は、Microsoft Word 2007、2010、2013、2016、2019、およびOffice365のWordに適用されます。