Microsoft Office Forums - View Single Post - Creating VBA Code to Delete Empty Column in Table

macropod · 08-05-2014, 08:41 PM

What you describe could be done with a macro like:

Code:

Sub Demo()
Application.ScreenUpdating = False
Dim Tbl As Table, i As Long
For Each Tbl In ActiveDocument.Tables
  With Tbl
    For i = .Columns.Count To 2 Step -1
      If Len(.Cell(2, i).Range.Text) = 2 Then .Columns(i).Delete
    Next
  End With
Next
Application.ScreenUpdating = True
End Sub