expression.DefaultTableStyle
expression Required. An expression that returns a Document object.
Example
This example checks to see if the default table style used in the active document is named "Table Normal" and, if it is, changes the default table style to "TableStyle1." This example assumes that you have a table style named "TableStyle1."
Sub TableDefaultStyle()
With ActiveDocument
If .DefaultTableStyle = "Table Normal" Then
.SetDefaultTableStyle _
Style:="TableStyle1", SetInTemplate:=True
End If
End With
End Sub