TableStyle![]() ![]() ![]() |
用指定的表格样式设置选定表格的格式时,该对象代表应用于表格中指定区域的特定格式。
使用 TableStyle 对象的 Condition 方法可返回一个 ConditionalStyle 对象。可使用 Shading 属性将底纹应用于表格中指定的区域。本示例选定活动文档中的第一张表格,并将底纹应用于交迭的行和列。本示例假定活动文档中有一张表格,并使用“网格型”样式设置其格式。
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