Microsoft Wordのすべての表のスタイルを変更する方法

Microsoft Word では、大量のテキストの断片に書式設定を適用できます。数回クリックするだけで、テキストの一部に適用された書式設定をコピーし、段落全体やセクションに適用できます。残念ながら、同じことはテーブルには当てはまりません。特定のドキュメント内のすべての表のスタイルを変更したい場合は、それぞれを個別に選択してスタイルを変更する必要があります。別の方法は、マクロを使用してこれを行うことです。

テーブルスタイルの検索

マクロを作成する前に、適用する表スタイルの名前を見つける必要があります。これはとても簡単です。表のスタイルを変更する Word 文書を開きます。テーブル内をクリックし、[テーブルツール] タブの [デザイン] タブに移動します。

すべての表に適用したい表スタイルの上にマウスカーソルを置くと、ツールチップにその名前が表示されます。名前をメモしておくと、マクロを作成する準備が整います。

テーブルスタイルマクロ

[ファイル] > [オプション] > [リボンのカスタマイズ] に移動して、Word の [開発] タブを有効にします。開発者ツールバーを有効にして、ドキュメントに戻ります。

「開発」タブで「マクロ」をクリックします。次の名前を付けます。

テーブルスタイルの適用

[作成] をクリックし、コードボックスに次の行を入力します。ただし、この行は編集する必要があります: tbl.Style = “Medium Shading 2 – Accent 1”。引用符内のビットを、前の手順でコピーしたテーブルスタイルの名前 name に置き換えます。コードから引用符を削除しないでください。テーブルスタイルの名前を入力して実行するだけです。

Sub applyTableStyle() Dim tbl As Table For each tbl in ActiveDocument.Tables tbl.Style = "Medium Shading 2 - Accent 1" Next End Sub

やるべきことはそれだけです。マクロが実行されると、すべてのテーブルのスタイルが自動的に変更されます。別のテーブルスタイルを使用する必要がある場合は、このマクロを削除する必要があります。このマクロは、すべてのテーブルのスタイルをマクロで指定したスタイルに事前に変更するためです。

マクロが適用するスタイルを変更する必要がある場合は、コードを編集して、適用するスタイルの名前を置き換える必要があります。マクロは、ドキュメント内のすべての現在のテーブルとすべての新しいテーブルにスタイルを適用します。Microsoft Word にこれを実行するための組み込みオプションがあれば、これは明らかに簡単になります。このアプリには奇妙な欠点があるようです。