Cells.AutoFit method (Word)

Changes the width of a table column to accommodate the width of the text without changing the way text wraps in the cells.

Syntax

expression. AutoFit

expression Required. A variable that represents a 'Cells' collection.

Remarks

If the table is already as wide as the distance between the left and right margins, this method has no affect.

Example

This example creates a 3x3 table in a new document and then changes the width of the first column to accommodate the width of the text.

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

This example creates a 3x3 table in a new document and then changes the width of all the columns to accommodate the width of the text.

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

See also

Cells Collection Object

Support and feedback

Have questions or feedback about Office VBA or this documentation? Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.