'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 EndWith End Sub Sub Test() MsgBox Selection.Tables(1).AutoFormatType MsgBox Selection.Tables(1).Style End Sub