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