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

Microsoft Wordでは、フォーマットを適用できますテキストエンマスの大きなスニペット。 1ビットのテキストに適用された書式設定をコピーし、数回クリックするだけで段落およびセクション全体に適用できます。残念ながら、テーブルにも同じことが当てはまりません。特定のドキュメントのすべてのテーブルのスタイルを変更する場合は、各テーブルを個別に選択してスタイルを変更する必要があります。別の方法は、マクロを使用して実行することです。

テーブルスタイルを見つける

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

すべてのテーブルに適用するテーブルスタイルの上にマウスカーソルを合わせると、ツールチップにその名前が表示されます。名前を書き留めて、マクロを作成する準備ができました。

テーブルスタイルマクロ

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

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

ApplyTableStyle

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

Sub ApplyTableStyle()
Dim tbl As Table
For Each tbl In ActiveDocument.Tables
tbl.Style = "Medium Shading 2 - Accent 1"
Next
End Sub

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

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