英語で読む

次の方法で共有


TableStyle オブジェクト (Word)

表に適用できる単一のスタイルを表します。

注釈

Styles オブジェクトの Table プロパティを使用して、TableStyle オブジェクトを取得します。 Borders プロパティを使用して、テーブル全体に罫線を適用します。 Condition メソッドを使用して、表の指定されたセクションにのみ罫線または網掛けを適用します。 次の使用例は、新しい表スタイルを作成し、その表の周囲に罫線を指定します。 特殊な罫線と網かけを、先頭行と最終行および最終列に指定します。

Sub NewTableStyle() 
 Dim styTable As Style 
 
 Set styTable = ActiveDocument.Styles.Add( _ 
 Name:="TableStyle 1", Type:=wdStyleTypeTable) 
 
 With styTable.Table 
 
 'Apply borders around table 
 .Borders(wdBorderTop).LineStyle = wdLineStyleSingle 
 .Borders(wdBorderBottom).LineStyle = wdLineStyleSingle 
 .Borders(wdBorderLeft).LineStyle = wdLineStyleSingle 
 .Borders(wdBorderRight).LineStyle = wdLineStyleSingle 
 
 'Apply a double border to the heading row 
 .Condition(wdFirstRow).Borders(wdBorderBottom) _ 
 .LineStyle = wdLineStyleDouble 
 
 'Apply a double border to the last column 
 .Condition(wdLastColumn).Borders(wdBorderLeft) _ 
 .LineStyle = wdLineStyleDouble 
 
 'Apply shading to last row 
 .Condition(wdLastRow).Shading _ 
 .BackgroundPatternColor = wdColorGray125 
 
 End With 
 
End Sub

メソッド

名前
Condition

プロパティ

関連項目

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

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

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