Método Table.AutoFormat (Word)
Aplica uma aparência predefinida a uma tabela.
Sintaxe
expression. AutoFormat( _Format_ , _ApplyBorders_ , _ApplyShading_ , _ApplyFont_ , _ApplyColor_ , _ApplyHeadingRows_ , _ApplyLastRow_ , _ApplyFirstColumn_ , _ApplyLastColumn_ , _AutoFit_ )
expressão Obrigatório. Uma variável que representa um objeto 'Table'.
Parâmetros
| Nome | Obrigatório/Opcional | Tipo de dados | Descrição |
|---|---|---|---|
| Format | Opcional | Variant | O formato a ser aplicado. Esse parâmetro pode ser uma constante WdTableFormat, uma constante WdTableFormatApply ou um objeto TableStyle. |
| ApplyBorders | Opcional | Variant | True para aplicar as propriedades de borda do formato especificado. O valor padrão é True. |
| ApplyShading | Opcional | Variant | True para aplicar as propriedades de sombreamento do formato especificado. O valor padrão é True. |
| ApplyFont | Opcional | Variant | True para aplicar as propriedades de fonte do formato especificado. O valor padrão é True. |
| ApplyColor | Opcional | Variant | True para aplicar as propriedades de cor do formato especificado. O valor padrão é True. |
| ApplyHeadingRows | Opcional | Variant | True para aplicar as propriedades de linha de título do formato especificado. O valor padrão é True. |
| ApplyLastRow | Opcional | Variant | True para aplicar as propriedades de última linha do formato especificado. O valor padrão é False. |
| ApplyFirstColumn | Opcional | Variant | True para aplicar as propriedades de primeira coluna do formato especificado. O valor padrão é True. |
| ApplyLastColumn | Opcional | Variant | True para aplicar as propriedades de última coluna do formato especificado. O valor padrão é False. |
| AutoFit | Opcional | Variant | True para diminuir a largura das colunas da tabela tanto quanto possível sem alterar o maneira como o texto é disposto nas células. O valor padrão é True. |
Comentários
Os argumentos desse método correspondem às opções da caixa de diálogo Table AutoFormat.
Exemplo
Este exemplo cria uma tabela 5x5 em um novo documento e aplica todas as propriedades do formato Colorful 2 à tabela.
Set newDoc = Documents.Add
Set myTable = newDoc.Tables.Add(Range:=Selection.Range, _
NumRows:=5, NumColumns:=5)
myTable.AutoFormat Format:=wdTableFormatColorful2
Este exemplo aplica todas as propriedades do formato Classic 2 à tabela na qual o ponto de inserção está localizado no momento. Se o ponto de inserção não estiver em uma tabela, uma caixa de mensagem será exibida.
Selection.Collapse Direction:=wdCollapseStart
If Selection.Information(wdWithInTable) = True Then
Selection.Tables(1).AutoFormat Format:=wdTableFormatClassic2
Else
MsgBox "The insertion point is not in a table."
End If
Confira também
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.