Table.AutoFormat method (Word)
Applies a predefined look to a table.
Syntax
expression. AutoFormat( _Format_ , _ApplyBorders_ , _ApplyShading_ , _ApplyFont_ , _ApplyColor_ , _ApplyHeadingRows_ , _ApplyLastRow_ , _ApplyFirstColumn_ , _ApplyLastColumn_ , _AutoFit_ )
expression Required. A variable that represents a 'Table' object.
Parameters
| Name | Required/Optional | Data type | Description |
|---|---|---|---|
| Format | Optional | Variant | The format to apply. This parameter can be a WdTableFormat constant, a WdTableFormatApply constant, or a TableStyle object. |
| ApplyBorders | Optional | Variant | True to apply the border properties of the specified format. The default value is True. |
| ApplyShading | Optional | Variant | True to apply the shading properties of the specified format. The default value is True. |
| ApplyFont | Optional | Variant | True to apply the font properties of the specified format. The default value is True. |
| ApplyColor | Optional | Variant | True to apply the color properties of the specified format. The default value is True. |
| ApplyHeadingRows | Optional | Variant | True to apply the heading-row properties of the specified format. The default value is True. |
| ApplyLastRow | Optional | Variant | True to apply the last-row properties of the specified format. The default value is False. |
| ApplyFirstColumn | Optional | Variant | True to apply the first-column properties of the specified format. The default value is True. |
| ApplyLastColumn | Optional | Variant | True to apply the last-column properties of the specified format. The default value is False. |
| AutoFit | Optional | Variant | True to decrease the width of the table columns as much as possible without changing the way text wraps in the cells. The default value is True. |
Remarks
The arguments for this method correspond to the options in the Table AutoFormat dialog box.
Example
This example creates a 5x5 table in a new document and applies all the properties of the Colorful 2 format to the table.
Set newDoc = Documents.Add
Set myTable = newDoc.Tables.Add(Range:=Selection.Range, _
NumRows:=5, NumColumns:=5)
myTable.AutoFormat Format:=wdTableFormatColorful2
This example applies all the properties of the Classic 2 format to the table in which the insertion point is currently located. If the insertion point isn't in a table, a message box is displayed.
Selection.Collapse Direction:=wdCollapseStart
If Selection.Information(wdWithInTable) = True Then
Selection.Tables(1).AutoFormat Format:=wdTableFormatClassic2
Else
MsgBox "The insertion point is not in a table."
End If
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.