Word VisualBasic Script

Sub auto()
    ActiveDocument.Tables(1).Columns.AutoFit
End Sub