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
|How do I force new pages for each chapter in a MS Word "directory" merge?||8||36|
|Java Filesystem manipulation of Word Docx file (find replace text)||3||66|
|Issues when typing e-mails or Word documents.||10||52|
|VBA Shell can't Find Word document||11||76|
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
16 Experts available now in Live!