次の方法で共有


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

プロパティ

名前
Alignment
AllowBreakAcrossPage
AllowPageBreaks
アプリケーション
Borders
BottomPadding
ColumnStripe
Creator
LeftIndent
LeftPadding
Parent
RightPadding
RowStripe
Shading
Spacing
TableDirection
TopPadding

関連項目

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

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

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