Ler em inglês

Compartilhar via


Propriedade Style.Table (Word)

Retorna um objeto TableStyle representando as propriedades que podem ser aplicadas a uma tabela usando um estilo de tabela.

Sintaxe

expression. Table

Expressão Uma expressão que retorna um objeto 'Style'.

Exemplo

Este exemplo cria um novo estilo de tabela que especifica uma borda ao redor e bordas especiais e sombreamento somente para a primeira e a última linha e a última coluna.

Sub NewTableStyle() 
 Dim styTable As Style 
 
 Set styTable = ActiveDocument.Styles.Add( _ 
 Name:="TableStyle 1", Type:=wdStyleTypeTable) 
 
 With styTable.Table 
 
 '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

Confira também

Objeto Style

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.