4月はWord文書に表があります。 1つの行は、会社のロゴの色と一致するようにカスタムの塗りつぶしでフォーマットされます。 Aprilは、その塗りつぶしの色を他の行にコピーしたいと考えています。彼女はフォーマットペインタを使用することを望んでいましたが、それはテーブルセルで使用される塗りつぶしの色ではなく、テキストフォーマットをコピーするだけです。エイプリルは、ある行から別の行に塗りつぶしの色をコピーする方法があるかどうか疑問に思います。

この問題に取り組む方法はいくつかあります。 1つは、Wordで使用できるツールを使用することです。次の手順に従ってください：

。目的の色ですでに塗りつぶされている行を選択します。

。リボンの[ホーム]タブを表示します。

。 [段落]グループで、シェーディングツールの右側にある下向き矢印をクリックします。 （ツールはペンキのこぼれたバケツのように見えます。）Wordは色のパレットを表示します。

。その他の色をクリックします。 Wordは[色]ダイアログボックスを表示します。選択した行の色は、ダイアログボックスにすでに表示されているはずです。 （図1を参照）

。 [OK]をクリックします。 （ダイアログボックスに変更を加えていないことに注意してください。[OK]をクリックしただけです。）

。背景色を変更するテーブル内の他の行を選択します。

。リボンの[デザイン]タブにあるシェーディングツールをクリックします。選択した行に希望の色が適用されます。

目的の色を適用した後、他の場所（おそらく別のテーブルや見逃したセル）に適用する場合は、セルを選択してF4キーを押すだけです。選択したセルでシェーディングが繰り返されます。

多数のテーブルまたは多数のドキュメントでこれをかなり行う必要がある場合は、マクロを使用してシェーディングを行うことを検討することをお勧めします。便利な小さなマクロは以下のマクロです：

Sub ShadeTable()

Dim backColor As Long     Dim foreColor As Long

If Selection.Information(wdWithInTable) Then         With Selection.Tables(1)

backColor = .Cell(1, 1).Shading.BackgroundPatternColor             foreColor = .Cell(1, 1).Shading.ForegroundPatternColor             .Shading.BackgroundPatternColor = backColor             .Shading.ForegroundPatternColor = foreColor         End With     Else         MsgBox "Put the insertion point in a table"

End If End Sub

マクロは、テーブルの最初の行の最初のセルで使用されるシェーディングに基づいて、テーブル全体をシェーディングします。実行する前に、テーブル内のどこかに挿入ポイントを配置するだけです。

注：

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

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

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

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

linkテーブルの塗りつぶしの色をコピー。