Compartir a través de

Objeto ConditionalStyle (Word)

  • Artículo

Representa el formato especial aplicado a áreas especificadas de una tabla, si a la tabla seleccionada se le ha aplicado un formato con un estilo de tabla concreto.

Comentarios

Utilice el método Condition del objeto TableStyle para devolver un objeto ConditionalStyle. La propiedad Shading puede utilizarse para aplicar un sombreado a áreas especificadas de una tabla. En este ejemplo se selecciona la primera tabla del documento activo y se aplica sombreado a filas y columnas alternas. En este ejemplo se supone que hay una tabla del documento activo y que es un formato utilizando el estilo de cuadrícula de la tabla.

Sub ApplyConditionalStyle() 
 With ActiveDocument 
 .Tables(1).Select 
 With .Styles("Table Grid").Table 
 .Condition(wdOddColumnBanding).Shading _ 
 .BackgroundPatternColor = wdColorGray10 
 .Condition(wdOddRowBanding).Shading _ 
 .BackgroundPatternColor = wdColorGray10 
 End With 
 End With 
End Sub

Utilice la propiedad Borders para aplicar bordes a las áreas especificadas de una tabla. En este ejemplo se selecciona la primera tabla del documento activo y se aplican bordes a la primera y última fila y la primera columna. En este ejemplo se supone que hay una tabla del documento activo y que es un formato utilizando el estilo de cuadrícula de la tabla.

Sub ApplyTableBorders() 
 With ActiveDocument 
 .Tables(1).Select 
 With .Styles("Table Grid").Table 
 .Condition(wdFirstRow).Borders(wdBorderBottom) _ 
 .LineStyle = wdLineStyleDouble 
 .Condition(wdFirstColumn).Borders(wdBorderRight) _ 
 .LineStyle = wdLineStyleDouble 
 .Condition(wdLastRow).Borders(wdBorderTop) _ 
 .LineStyle = wdLineStyleDouble 
 End With 
 End With 
End Sub

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.