Objeto TableStyle (Word)
Representa un solo estilo que se puede aplicar a una tabla.
Comentarios
Utilice la tabla propiedad de los estilos objeto para devolver un objeto TableStyle. Utilice los bordes propiedad para aplicar bordes a toda la tabla. Utilice la condición método para aplicar bordes o sombreado a las secciones especificadas de una tabla. Este ejemplo crea un nuevo estilo de tabla y da formato a la tabla con un borde alrededor. Sombreado y bordes especiales se aplican a la primera y última filas y la última columna.
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
| Nombre |
|---|
| Condition |
Propiedades
Vea también
Referencia de modelos de objetos de Word
Soporte técnico y comentarios
¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.