Word VBA教程:AutoFormatType属性

返回指定表格使用的自动套用的格式类型。Long 类型,只读。可以是下列WdTableFormat 常量之一。

WdTableFormat 可以是下列 WdTableFormat 常量之一:
wdTableFormat3DEffects1
wdTableFormat3DEffects2
wdTableFormat3DEffects3
wdTableFormatClassic1
wdTableFormatClassic2
wdTableFormatClassic3
wdTableFormatClassic4
wdTableFormatColorful1
wdTableFormatColorful2
wdTableFormatColorful3
wdTableFormatColumns1
wdTableFormatColumns2
wdTableFormatColumns3
wdTableFormatColumns4
wdTableFormatColumns5
wdTableFormatContemporary
wdTableFormatElegant
wdTableFormatGrid1
wdTableFormatGrid2
wdTableFormatGrid3
wdTableFormatGrid4
wdTableFormatGrid5
wdTableFormatGrid6
wdTableFormatGrid7
wdTableFormatGrid8
wdTableFormatList1
wdTableFormatList2
wdTableFormatList3
wdTableFormatList4
wdTableFormatList5
wdTableFormatList6
wdTableFormatList7
wdTableFormatList8
wdTableFormatNone
wdTableFormatProfessional
wdTableFormatSimple1
wdTableFormatSimple2
wdTableFormatSimple3
wdTableFormatSubtle1
wdTableFormatSubtle2
wdTableFormatWeb1
wdTableFormatWeb2
wdTableFormatWeb3

注意   可用AutoFormat方法来为表格设置自动套用的格式。

VBA示例

如果活动文档的第一个表格的当前格式是“简明型 1”、“简明型 2”或“简明型 3”,那么本示例为该表格自动套用“古典型 1”格式。


If ActiveDocument.Tables.Count >= 1 Then
    If ActiveDocument.Tables(1).AutoFormatType <= wdTableFormatSimple3 Then
        ActiveDocument.Tables(1).AutoFormat _
            Format:=wdTableFormatClassic1
    End If
End If
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号