Clase ConditionalStyle - formato especial (Word VBA)

La clase ConditionalStyle 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. Para usar una variable de clase ConditionalStyle, primero debe ser instanciado, por ejemplo

Dim cse as ConditionalStyle
Set cse = ActiveDocument.Range.TableStyle.Condition(ConditionCode:=wdEvenColumnBanding)

Borders

Devuelve una colección Borders que representa todos los bordes del objeto ConditionalStyle especificado.

Para obtener información sobre cómo devolver un solo miembro de una colección, vea devolver un objeto de una colección.

ActiveDocument.Range.TableStyle.Condition.Borders =

BottomPadding

Devuelve o establece un valor Single que representa la cantidad de espacio (en puntos) que se agregará debajo del contenido de una sola celda o de todas las celdas de una tabla.

El valor de la propiedad BottomPadding para una sola celda anula el valor de la propiedad BottomPadding para toda la tabla.

ActiveDocument.Range.TableStyle.Condition.BottomPadding =

Font

Devuelve o establece un objeto Font que representa el formato de carácter del objeto especificado.

Para establecer la propiedad Font, especifique una expresión que devuelve un objeto Font.

ActiveDocument.Range.TableStyle.Condition.Font =

LeftPadding

Devuelve o establece la cantidad de espacio (en puntos) para agregar a la izquierda del contenido de una sola celda o de todas las celdas de una tabla.

El valor de la propiedad LeftPadding para una sola celda anula el valor de la propiedad LeftPadding para toda la tabla.

ActiveDocument.Tables(1).LeftPadding = _ 
 PixelsToPoints(40, False)

ParagraphFormat

Devuelve o establece un objeto ParagraphFormat que representa la configuración de párrafo del estilo condicional especificado.

With ActiveDocument.Styles(wdStyleHeading2).ParagraphFormat 
 .TabIndent(1) 
 .Space2 
End With

RightPadding

Devuelve o establece la cantidad de espacio (en puntos) para agregar a la derecha del contenido de una sola celda o de todas las celdas de una tabla.

El valor de la propiedad RightPadding para una sola celda anula el valor de la propiedad RightPadding para toda la tabla.

ActiveDocument.Tables(1).RightPadding = _ 
 PixelsToPoints(40, False)

Shading

Devuelve un objeto shading que representa el formato de sombreado del formato de estilo de una tabla.

Dim shdShading As Shading
Set shdShading = ActiveDocument.Range.TableStyle.Condition.Shading

TopPadding

Devuelve o establece la cantidad de espacio (en puntos) para agregar por encima del contenido de una sola celda o de todas las celdas de una tabla.

El valor de la propiedad TopPadding para una sola celda anula el valor de la propiedad TopPadding para toda la tabla.

ActiveDocument.Range.TableStyle.Condition.TopPadding =