将预定义外观应用于表格。本方法用于 Table AutoFormat 对话框中的属性设定(Table 菜单)。
expression.AutoFormat(Format, ApplyBorders, ApplyShading, ApplyFont, ApplyColor, ApplyHeadingRows, ApplyLastRow, ApplyFirstColumn, ApplyLastColumn, AutoFit)
expression 必需。该表达式返回以上一个对象。
Format Variant 类型,可选。
ApplyBorders Variant 类型,可选。如果为 True,则应用指定格式的边框属性。默认值为 True。
ApplyShading Variant 类型,可选。如果为 True,则应用指定格式的底纹属性。默认值为 True。
ApplyFont Variant 类型,可选。如果为 True,则应用指定格式的字体属性。默认值为 True。
ApplyColor Variant 类型,可选。如果取 True,则应用指定格式的颜色属性。默认值为 True。
ApplyHeadingRows Variant 类型,可选。如果为 True,则应用指定格式的标题属性。默认值为 True。
ApplyLastRow Variant 类型,可选。如果为 True,则应用指定格式的末行属性。默认值为 False。
ApplyFirstColumn Variant 类型,可选。如果为 True,则应用指定格式的首列属性。默认值为 True。
ApplyLastColumn Variant 类型,可选。如果为 True,则应用指定格式的末列属性。默认值为 False。
AutoFit Variant 类型,可选。如果为 True,则在不改变单元格中文字换行的前提下,尽量缩小表格宽度。默认值为 True。
应用于 Document 和 Range 对象的 AutoFormat 方法。
本示例在新文档中创建一个 5x5 的表格,并将“彩色型 2”格式的所有属性应用于此表格。
Set newDoc = Documents.Add
Set myTable = newDoc.Tables.Add(Range:=Selection.Range, _
NumRows:=5, NumColumns:=5)
myTable.AutoFormat Format:=wdTableFormatColorful2
本示例将“古典型 2”格式的所有属性应用于插入点所在表格。如果插入点不在表格中,则显示一个消息框。
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
本示例自动为所选内容套用格式。
Selection.Range.AutoFormat