Classe ConditionalStyle - formatação especial (Word VBA)

A classe ConditionalStyle representa a formatação especial aplicada a áreas específicas de uma tabela quando a tabela selecionada é formatada com um estilo de tabela especificado. Para usar uma variável de classe ConditionalStyle, ela primeiro precisa ser instanciada por exemplo

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

Borders

Retorna uma coleção Borders que representa todas as bordas do objeto conditionalstyle especificado.

Para obter informações sobre como retornar um único membro de uma coleção, consulte retornando um objeto de uma coleção.

ActiveDocument.Range.TableStyle.Condition.Borders =

BottomPadding

Retorna ou define um valor único que representa a quantidade de espaço em pontos para adicionar abaixo do conteúdo de uma única célula ou de todas as células em uma tabela. Leitura/gravação.

A configuração da propriedade BottomPadding para uma única célula sobrescreve a configuração da propriedade BottomPadding para a tabela inteira.

ActiveDocument.Range.TableStyle.Condition.BottomPadding =

Font

Retorna ou define um objeto Font que representa a formatação de caractere do objeto especificado. Leitura/gravação.

Para definir a propriedade Font, especifique uma expressão que retorna um objeto Font.

ActiveDocument.Range.TableStyle.Condition.Font =

LeftPadding

Retorna ou define a quantidade de espaço em pontos para adicionar à esquerda do conteúdo de uma única célula ou de todas as células em uma tabela. Leitura/gravação única.

A configuração da propriedade LeftPadding para uma única célula sobrescreve a configuração da propriedade LeftPadding para a tabela inteira.

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

ParagraphFormat

Retorna ou define um objeto ParagraphFormat que representa as configurações de parágrafo para o estilo condicional especificado. Leitura/gravação.

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

RightPadding

Retorna ou define a quantidade de espaço em pontos para adicionar à direita do conteúdo de uma única célula ou de todas as células em uma tabela. Leitura/gravação única.

A configuração da propriedade RightPadding para uma única célula sobrescreve a configuração da propriedade RightPadding para a tabela inteira.

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

Shading

Retorna um objeto Shading que representa a formatação de sombreamento para a formatação de estilo de uma tabela.

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

TopPadding

Retorna ou define a quantidade de espaço em pontos para adicionar acima do conteúdo de uma única célula ou de todas as células em uma tabela. Leitura/gravação única.

A configuração da propriedade TopPadding para uma única célula sobrescreve a configuração da propriedade TopPadding para a tabela inteira.

ActiveDocument.Range.TableStyle.Condition.TopPadding =