Excelでは、条件付き書式を使用して、データテーブルの1行おき（またはn行おき）に陰影を付けることができます。 Wordで同じタスクを実行したい場合は、プログラムがいくつかのアプローチを提供します。

1つのアプローチは、テーブルでWordのオートフォーマット機能を使用することです。次の手順に従ってください：

。通常どおりにテーブルを作成します。

。テーブル内のどこかに挿入ポイントを配置します。

。 [テーブル]メニューから[テーブルのオートフォーマット]オプションを選択します。 Wordは、[テーブルのオートフォーマット]ダイアログボックスを表示します。 （図1を参照）

。使用可能なスタイルのリストで、テーブルの行に陰影を使用するスタイルを選択します。

。 [適用]をクリックします。フォーマットはテーブルに適用されます。

。 [テーブルのオートフォーマット]ダイアログボックスを閉じます。

テーブルに提供されているオートフォーマットの多くは「スマート」です。つまり、テーブルに新しい行を追加した場合でも、行のシェーディングを調整できます。これはどのように行われますか？聞いてよかった。これは、テーブルの行をシェーディングする2番目の方法であるテーブルスタイルにつながります。

スタイルは何年もの間Wordで利用可能です。 Wordのスタイル機能に比較的最近追加されたものの1つは、テーブルのスタイルです。テーブルの偶数行または奇数行にシェーディングを自動的に適用するテーブルスタイルを定義できます。 （これがテーブルオートフォーマットの実行方法です。）次の手順に従います。

。 「フォーマット」メニューから「スタイルとフォーマット」を選択します。 Wordに[スタイルと書式設定]作業ウィンドウが表示されます。

。作業ウィンドウで、[新しいスタイル]をクリックします。 Wordは、[新しいスタイル]ダイアログボックスを表示します。

。 [スタイルタイプ]ドロップダウンリストを使用して、[テーブル]を選択します。 （図2を参照）

。 [書式設定の適用]ドロップダウンリストを使用して、このスタイルを奇数行と偶数行のどちらに適用するかに応じて、[奇数行ストライプ]または[偶数行ストライプ]を選択します。

。ダイアログボックスのコントロールを使用して、行に適用するフォーマットを設定します。

。必要に応じて、スタイル名やその他のプロパティを設定します。

。 [OK]をクリックします。

これで、奇数行または偶数行のシェーディングスタイルが作成されました。必要に応じて、このスタイルをテーブルに適用できます。テーブルの行数を変更すると、フォーマットが自動的に調整されます。

これまでに説明したソリューションは、テーブル内の他のすべての行にフォーマットを適用する場合、およびテーブルフォーマットをサポートするバージョンのWordを使用している場合にうまく機能します。 3行、4行、または5行ごとに書式を適用する場合、または表の書式が含まれていない古いバージョンのWordを使用している場合は、うまく機能しません。このような場合は、マクロを使用してフォーマットを行うのが最適な場合があります。以下は、テーブルの3行ごとにシェーディングを適用できるマクロの良い例です。

Sub ShadeRows()

Dim iRow As Integer     Dim iHeads As Integer     Dim iRowTtl As Integer

If Selection.Information(wdWithInTable) = True Then         iHeads = InputBox(prompt:="Number of heading rows?", _           Title:="Headings", Default:="1")



iRowTtl = Selection.Tables(1).Rows.Count - iHeads         For iRow = 1 To iRowTtl             If iRow Mod 3 = 0 Then                 Selection.Tables(1).Rows(iRow + iHeads).Shading.Texture _                   = wdTexture20Percent             Else                 Selection.Tables(1).Rows(iRow + iHeads).Shading.Texture _                   = wdTextureNone             End If         Next iRow     End If End Sub

マクロは、テーブル内のヘッダー行の数を尋ね、シェーディングを適用する行を調整します。マクロの実行時に挿入ポイントがテーブル内にない場合、何も起こりません。 Mod式を変更することで、シェーディングの頻度を変更することもできます（たとえば、3行ごとから4行ごとに）。次のように、1行を変更するだけです。

If iRow Mod 4 = 0 Then

wdTexture20Percent定数をwdTexture5Percent、wdTexture10Percent、wdTexture25Percentなどの別の定数に変更することで、シェーディングの量を変更することもできます。

また、セルが垂直方向に結合されているテーブルでマクロを実行すると、予期しない結果が発生する可能性があることも理解しておく必要があります。テーブルの行数を変更した場合は、マクロを再度実行してシェーディングを再適用する必要があります。

注：

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

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

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

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

linkShading TableRows。