Word) (TableStyle 物件
代表可以套用到表格的單一樣式。
註解
使用 表格Styles 屬性 若要傳回 TableStyle 物件的物件。 使用 框線 若要將框線套用至整個表格的屬性。 使用 條件 框線或陰影僅套用至指定的表格的節的方法。 本範例會建立新的表格樣式與格式與周圍框線。 特殊框線與陰影會套用至第一個及最後一列及最後一欄。
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 |
| 間距 |
| TableDirection |
| TopPadding |
請參閱
支援和意見反應
有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。