AutoFormat Method

Microsoft Word Visual Basic

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.

ShowAutoFormat 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

ShowAs 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
				

ShowAs it applies to the Range object.

This example automatically formats the selection.

Selection.Range.AutoFormat