ColumnStripe Property

Microsoft Word Visual Basic

expression.ColumnStripe

expression    Required. An expression that returns one of the objects in the Applies To list.

Remarks

Use the Condition method to set odd- or even-column banding for a table style.

Example

This example creates and formats a new table style then applies the new style to a new table. The resulting style causes three columns every third column and two rows every second row to have 20% shading.

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