Edit

Table.AutoFormat method (Word)

  • Article

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

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.