Objeto TableStyle (Word)
Representa um único estilo que pode ser aplicado a uma tabela.
Comentários
Use a tabela propriedade dos estilos objeto para retornar um objeto TableStyle. Use as bordas propriedade para aplicar bordas a uma tabela inteira. Usar a condição método aplicar bordas ou sombreamento apenas a seções especificadas de uma tabela. Este exemplo cria um novo estilo de tabela e formata a tabela com uma borda ao redor. Bordas especiais e sombreamento são aplicadas às linhas do primeira e últimos 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
.Borders(wdBorderTop).LineStyle = wdLineStyleSingle
.Borders(wdBorderBottom).LineStyle = wdLineStyleSingle
.Borders(wdBorderLeft).LineStyle = wdLineStyleSingle
.Borders(wdBorderRight).LineStyle = wdLineStyleSingle
'Apply a double border to the heading row
.Condition(wdFirstRow).Borders(wdBorderBottom) _
.LineStyle = wdLineStyleDouble
'Apply a double border to the last column
.Condition(wdLastColumn).Borders(wdBorderLeft) _
.LineStyle = wdLineStyleDouble
'Apply shading to last row
.Condition(wdLastRow).Shading _
.BackgroundPatternColor = wdColorGray125
End With
End Sub
Métodos
| Nome |
|---|
| Condition |
Propriedades
Confira também
Referência do modelo de objeto do Word
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.