Compartilhar via


Método Columns.AutoFit (Word)

Altera a largura de uma coluna de tabela para acomodar a largura do texto sem alterar a disposição do texto nas células.

Sintaxe

expression. AutoFit

expression é obrigatório. Uma variável que representa uma coleção 'Columns'.

Comentários

Se a tabela já tiver a mesma largura da distância entre as margens esquerda e direita, esse método não terá nenhum efeito.

Exemplo

Este exemplo cria uma tabela 3x3 em um novo documento e altera a largura da primeira coluna para aceitar a largura do texto.

Dim docNew as Document 
Dim tableNew as Table 
 
Set docNew = Documents.Add 
Set tableNew = docNew.Tables.Add(Range:=Selection.Range, _ 
 NumRows:=3, NumColumns:=3) 
With tableNew 
 .Cell(1,1).Range.InsertAfter "First cell" 
 .Columns(1).AutoFit 
End With

Este exemplo cria uma tabela 3x3 em um novo documento e altera a largura de todas as colunas para aceitar a largura do texto.

Dim docNew as Document 
Dim tableNew as Table 
 
Set docNew = Documents.Add 
Set tableNew = docNew.Tables.Add(Selection.Range, 3, 3) 
With tableNew 
 .Cell(1,1).Range.InsertAfter "First cell" 
 .Cell(1,2).Range.InsertAfter "This is cell (1,2)" 
 .Cell(1,3).Range.InsertAfter "(1,3)" 
 .Columns.AutoFit 
End With

Confira também

Objeto da coleção Columns

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.