Método Cells.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 'Cells'.
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
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.