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

Table Object