Applies a predefined look to a table. The arguments for this method correspond to the options in the Table AutoFormat dialog box (Table menu).
expression.AutoFormat(Format, ApplyBorders, ApplyShading, ApplyFont, ApplyColor, ApplyHeadingRows, ApplyLastRow, ApplyFirstColumn, ApplyLastColumn, AutoFit)
expression Required. An expression that returns one of the above objects.
Format Optional Variant.
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. 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.
AutoFormat method as it applies to the Document and Range objects.
Automatically formats a document. Use the Kind property to specify a document type.
expression.AutoFormat
expression Required. An expression that returns one of the above objects.
Example
As it applies to the Table object.
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
As it applies to the Range object.
This example automatically formats the selection.
Selection.Range.AutoFormat