Submit an article about your scariest tech experience—and the solution—and you’ll be automatically entered to win one of 4 fantastic tech gadgets.
Sub AllTables_Delete_One_Column() Dim tbl As Table Dim ColumnNumberDelete As String 'Just numbers are allowed and the number should be between 1 and maximum count of columns) Application.ScreenUpdating = False ColumnNumberDelete = Inputbox("Which column number is to be deleted?", "Deletion of Column") If ColumnNumberDelete = "" Then Exit Sub For Each tbl In ActiveDocument.Tables tbl.Columns(ColumnNumberDelete).Delete Next End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.