ConditionalStyle オブジェクト (Word)

選択した表が、指定された表のスタイルで書式設定されている場合に、表の指定領域に適用する特殊な書式設定を表します。

注釈

TableStyle オブジェクトの Condition メソッドを使用して、 ConditionalStyle オブジェクトを取得します。 表の指定領域に網かけの設定を適用する 網かけの設定 プロパティを使用できます。 この例では、作業中の文書の最初の表を選択し、代替の行と列に網かけの設定が適用されます。 次の使用例は、作業中の文書に表があることと、フォーマットされている表スタイルを使用すると仮定します。

Sub ApplyConditionalStyle() 
 With ActiveDocument 
 .Tables(1).Select 
 With .Styles("Table Grid").Table 
 .Condition(wdOddColumnBanding).Shading _ 
 .BackgroundPatternColor = wdColorGray10 
 .Condition(wdOddRowBanding).Shading _ 
 .BackgroundPatternColor = wdColorGray10 
 End With 
 End With 
End Sub

表の指定領域に罫線を適用するのにには、 Borders プロパティを使用します。 次の使用例は作業中の文書の最初の表を選択し、最初と最後の行と最初の列に罫線を適用します。 次の使用例は、作業中の文書に表があることと、フォーマットされている表スタイルを使用すると仮定します。

Sub ApplyTableBorders() 
 With ActiveDocument 
 .Tables(1).Select 
 With .Styles("Table Grid").Table 
 .Condition(wdFirstRow).Borders(wdBorderBottom) _ 
 .LineStyle = wdLineStyleDouble 
 .Condition(wdFirstColumn).Borders(wdBorderRight) _ 
 .LineStyle = wdLineStyleDouble 
 .Condition(wdLastRow).Borders(wdBorderTop) _ 
 .LineStyle = wdLineStyleDouble 
 End With 
 End With 
End Sub

関連項目

Word オブジェクト モデル リファレンス

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。