Word VBA教程:AutoFormat方法

应用于 Table对象的 AutoFormat方法。

将预定义外观应用于表格。本方法用于 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方法。

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

expression.AutoFormat

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

 

VBA示例

当应用于 Table对象时。

本示例在新文档中创建一个 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

当应用于 Range对象时。

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


Selection.Range.AutoFormat

Word VBA教程

Word VBA参考教程:目录1 Word VBA参考教程:目录2
Word VBA参考教程:目录3 Word VBA参考教程:目录4
Word VBA参考教程:目录5 Word VBA参考教程:目录6
Word VBA参考教程:目录7 Word VBA参考教程:目录8
Word VBA参考教程:目录9 Word VBA参考教程:目录10
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号