Compartilhar via

Style.Table Property

Word Developer Reference

Returns a TableStyle object representing properties that can be applied to a table using a table style.

Syntax

expression.Table

expression   An expression that returns a Style object.

Example

This example creates a new table style that specifies a surrounding border and special borders and shading for only the first and last rows and the last column.

Visual Basic for Applications 
  Sub NewTableStyle()
    Dim styTable As Style

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

With styTable.<strong class="bterm">Table</strong>

    'Apply borders around table, a double border to the heading row,
    'a double border to the last column, and shading to last row
    .Borders(wdBorderTop).LineStyle = wdLineStyleSingle
    .Borders(wdBorderBottom).LineStyle = wdLineStyleSingle
    .Borders(wdBorderLeft).LineStyle = wdLineStyleSingle
    .Borders(wdBorderRight).LineStyle = wdLineStyleSingle

    .Condition(wdFirstRow).Borders(wdBorderBottom) _
        .LineStyle = wdLineStyleDouble

    .Condition(wdLastColumn).Borders(wdBorderLeft) _
        .LineStyle = wdLineStyleDouble

    .Condition(wdLastRow).Shading _
        .BackgroundPatternColor = wdColorGray125

End With



End Sub

See Also