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

Objeto Table

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.