Question

全部显示

应用于 Table 对象的 AutoFormat 方法。

将预定义外观应用于表格。本方法用于 Table AutoFormat 对话框中的属性设定（Table 菜单）。

expression.AutoFormat(Format,ApplyBorders,ApplyShading,ApplyFont,ApplyColor,ApplyHeadingRows,ApplyLastRow,ApplyFirstColumn,ApplyLastColumn,AutoFit)

expression 必需。该表达式返回以上一个对象。

FormatVariant 类型，可选。

ApplyBordersVariant 类型，可选。如果为 True，则应用指定格式的边框属性。默认值为 True。

ApplyShadingVariant 类型，可选。如果为 True，则应用指定格式的底纹属性。默认值为 True。

ApplyFontVariant 类型，可选。如果为 True，则应用指定格式的字体属性。默认值为 True。

ApplyColorVariant 类型，可选。如果取 True，则应用指定格式的颜色属性。默认值为 True。

ApplyHeadingRowsVariant 类型，可选。如果为 True，则应用指定格式的标题属性。默认值为 True。

ApplyLastRowVariant 类型，可选。如果为 True，则应用指定格式的末行属性。默认值为 False。

ApplyFirstColumnVariant 类型，可选。如果为 True，则应用指定格式的首列属性。默认值为 True。

ApplyLastColumnVariant 类型，可选。如果为 True，则应用指定格式的末列属性。默认值为 False。

AutoFitVariant 类型，可选。如果为 True，则在不改变单元格中文字换行的前提下，尽量缩小表格宽度。默认值为 True。

应用于 Document 和 Range 对象的 AutoFormat 方法。

自动给文档套用格式。使用 Kind 属性指定文档类型。

expression.AutoFormat

expression 必需。该表达式返回以上一个对象。

示例

当应用于 Table 对象时。

本示例在新文档中创建一个 5ｘ5 的表格，并将“彩色型 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

当应用于 Range 对象时。

本示例自动为所选内容套用格式。

Selection.Range.AutoFormat