MVEs are more concerned with the satisfaction of those they help than with the considerable points they can earn. They are the types of people you feel privileged to call colleagues. Join us in honoring this amazing group of Experts.
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.
|delete blank pages by means of VBA||10||37|
|Word 2016 - Automatic image caption numbering||3||60|
|Use of colors in documentation - Callouts, keyboard/mouse actions, sidebar definitions||6||61|
|Using Search in Word 2016 to locate 'exact' text.||13||54|
Join the community of 500,000 technology professionals and ask your questions.