Word VisualBasic Script

'wdDeleteCellsEntireColumn deletes the whole column the specified cell or cells is in.
Sub del()
    ActiveDocument.Tables(1).Rows(1).Cells(1).Delete _
        ShiftCells:=wdDeleteCellsEntireColumn
End Sub