Word2003表格的AutoFormatType和Style的兼容问题

' Word 2000
Sub  Word2000() 
    Selection.Tables( 1 ).AutoFormat Format: = wdTableFormatClassic2, ApplyBorders _ 
        : = True , ApplyShading: = True , ApplyFont: = True , ApplyColor: = True , _ 
        ApplyHeadingRows: = True , ApplyLastRow: = False , ApplyFirstColumn: = True , _ 
        ApplyLastColumn: = False , AutoFit: = True  
End Sub  

' Word2003
Sub  Word2003() 
     With  Selection.Tables( 1 )
        .Style  =   " 列表型 5 "
        .ApplyStyleHeadingRows  =   True
        .ApplyStyleLastRow  =   True
        .ApplyStyleFirstColumn  =   True
        .ApplyStyleLastColumn  =   True
　　 End   With
End Sub

Sub  Test() 
     MsgBox  Selection.Tables( 1 ).AutoFormatType 
     MsgBox  Selection.Tables( 1 ).Style 
End Sub

看出上边代码的区别了吗？

在Word2000里边表格的样式采用AutoFormatType，而在Word2003里边采用的是Style，虽然在Word2003里边也保留了AutoFormatType，但是存在一个很严重的问题，就是如果文档使用Style属性进行制作，AutoForamtStyle读出的值永远是1，虽然Style更加方便，但是设置于读出的值不符合真实情况，真是讨厌，所以以后在使用这两个属性的时候要慎重。