Document.DefaultTableStyle (Word)

Retorna um valor que representa o estilo de tabela que é aplicado a todas as tabelas recém-criadas em um documento. Somente leitura.

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