Document.DefaultTableStyle (Word)

Returns a Variant that represents the table style that is applied to all newly created tables in a document.

Sub TableDefaultStyle() 
 With ActiveDocument 
 If .DefaultTableStyle = "Table Normal" Then 
 .SetDefaultTableStyle _ 
 Style:="TableStyle1", SetInTemplate:=True 
 End If 
 End With 
End Sub