Word) (Table.AutoFormat 方法
将预定义外观应用于表格。
语法
expression。 AutoFormat( _Format_ , _ApplyBorders_ , _ApplyShading_ , _ApplyFont_ , _ApplyColor_ , _ApplyHeadingRows_ , _ApplyLastRow_ , _ApplyFirstColumn_ , _ApplyLastColumn_ , _AutoFit_ )
expression 是必需的。 一个代表“Table”对象的变量。
参数
| 名称 | 必需/可选 | 数据类型 | 说明 |
|---|---|---|---|
| Format | 可选 | Variant | 要应用的格式。 此参数可以是一个 WdTableFormat 常量， WdTableFormatApply 常量或一个 TableStyle 对象。 |
| ApplyBorders | 可选 | Variant | 则 应用指定格式的边框属性。 默认值为 True 。 |
| ApplyShading | 可选 | Variant | 则 应用指定格式的底纹属性。 默认值为 True 。 |
| ApplyFont | 可选 | Variant | 则 应用指定格式的字体属性。 默认值为 True 。 |
| ApplyColor | 可选 | Variant | 则 应用指定格式的颜色属性。 默认值为 True 。 |
| ApplyHeadingRows | 可选 | Variant | 则 应用指定格式的标题行的属性。 默认值为 True 。 |
| ApplyLastRow | 可选 | Variant | 则 应用指定格式的最后一行的属性。 默认值为 False 。 |
| ApplyFirstColumn | 可选 | Variant | 则 应用指定格式的第一列的属性。 默认值为 True 。 |
| ApplyLastColumn | 可选 | Variant | 则 应用指定格式的最后一列的属性。 默认值为 False 。 |
| AutoFit | 可选 | Variant | 真 要减少尽最大可能的表格列的宽度，而无需更改文字换行的单元格中。 默认值为 True。 |
备注
此方法的参数对应于“表格自动套用格式”对话框中的选项。
示例
以下示例在新文档中创建一个 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
另请参阅
支持和反馈
有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。