Word VisualBasic Script

Sub del()
    ActiveDocument.Tables(1).Columns(1).Delete
End Sub