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

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

このマクロは、次のWebサイトで言及されているマクロのバリエーションです。

http://www.wordbanter.com/showthread.php?t=84194

注：

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

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

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

（Microsoft Wordは、世界で最も人気のあるワードプロセッシングソフトウェアです。）このヒント（10931）は、Microsoft Word 97、2000、2002、および2003に適用されます。Wordのリボンインターフェイス（Word 2007）用のこのヒントのバージョンを見つけることができます。以降）ここ：

link：/ wordribbon-Copying_Fill_Color_in_a_Table [テーブルの塗りつぶしの色をコピー]。