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
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.