返回介绍

RowStripe 属性

发布于 2019-09-29 10:17:55 字数 1061 浏览 1283 评论 0 收藏 0

该属性返回或设置一个 Long 类型的数值,当样式指定奇数或偶数行成组时,表示组中包含的行数。可读写。

expression.RowStripe

expression 必需。该表达式返回“应用于”列表中的一个对象。

说明

使用 Condition 方法可设置用于表格样式的奇数或偶数列组。

示例

本示例新建一个表格样式并设置其格式,然后将新样式应用于新的表格。该样式的结果使每隔三列的三列和每隔两行的两行具有 20% 的底纹。

Sub NewTableStyle()
    Dim styTable As Style

    With ActiveDocument
        Set styTable = .Styles.Add(Name:="TableStyle 1", _
            Type:=wdStyleTypeTable)

        With .Styles("TableStyle 1").Table
            .Condition(wdEvenColumnBanding).Shading _
                .Texture = wdTexture20Percent
            .ColumnStripe = 3
            .Condition(wdEvenRowBanding).Shading _
                .Texture = wdTexture20Percent
            .RowStripe = 2
        End With

        With .Tables.Add(Range:=Selection.Range, NumRows:=15, _
                NumColumns:=15)
            .Style = ActiveDocument.Styles("TableStyle 1")
        End With
    End With

End Sub

如果你对这篇内容有疑问,欢迎到本站社区发帖提问 参与讨论,获取更多帮助,或者扫码二维码加入 Web 技术交流群。

扫码二维码加入Web技术交流群

发布评论

需要 登录 才能够评论, 你可以免费 注册 一个本站的账号。
列表为空,暂无数据
    我们使用 Cookies 和其他技术来定制您的体验包括您的登录状态等。通过阅读我们的 隐私政策 了解更多相关信息。 单击 接受 或继续使用网站,即表示您同意使用 Cookies 和您的相关数据。
    原文