Sets the width of columns or cells in a table.
expression Required. An expression that returns one of the objects in the Applies To list.
ColumnWidth Required Single. The width of the specified column or columns, in points.
|WdRulerStyle can be one of these WdRulerStyle constants.|
|wdAdjustNone Sets the width of all selected cells or columns to the specified value. Word preserves the width of all non-selected columns, shifting them to the right or left as necessary. This is the default value.|
|wdAdjustSameWidth Sets the width of the cells in the first column only to the specified value. Word preserves the right edge of the table by adjusting the width of all other cells or columns to the same value.|
|wdAdjustFirstColumn Sets the width of the cells in the first column only to the specified value. If there is more than one column, Word preserves the right edge of the table and the positions of the other columns.|
|wdAdjustProportional Sets the width of the cells in the first column only to the specified value. If multiple columns are selected, Word preserves the right edge of the table and the positions of the non-selected columns by proportionally adjusting the width of the other selected columns. If only one cell or column is selected, Word preserves the right edge of the table by proportionally adjusting the width of the other cells or columns.|
The WdRulerStyle behavior described above applies to left-aligned tables. The WdRulerStyle behavior for center- and right-aligned tables can be unexpected; in these cases, the SetWidth method should be used with care.
This example creates a table in a new document and sets the width of the first cell in the second row to 1.5 inches. The example preserves the widths of the other cells in the table.
Set newDoc = Documents.Add Set myTable = _ newDoc.Tables.Add(Range:=Selection.Range, NumRows:=3, _ NumColumns:=3) myTable.Cell(2,1).SetWidth _ ColumnWidth:=InchesToPoints(1.5), _ RulerStyle:=wdAdjustNone
This example sets the width of the cell that contains the insertion point to 36 points. The example also narrows the first column to preserve the position of the right edge of the table.
If Selection.Information(wdWithInTable) = True Then Selection.Cells(1).SetWidth ColumnWidth:=36, _ RulerStyle:=wdAdjustFirstColumn Else MsgBox "The insertion point is not in a table." End If