Word VBA教程:ConditionalStyle对象

   
TableStyle
ConditionalStyle
多种对象

用指定的表格样式设置选定表格的格式时,该对象代表应用于表格中指定区域的特定格式。

使用 ConditionalStyle对象

使用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

Word VBA教程

Word VBA参考教程:目录1 Word VBA参考教程:目录2
Word VBA参考教程:目录3 Word VBA参考教程:目录4
Word VBA参考教程:目录5 Word VBA参考教程:目录6
Word VBA参考教程:目录7 Word VBA参考教程:目录8
Word VBA参考教程:目录9 Word VBA参考教程:目录10
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号