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

macropod · 08-07-2014, 03:29 PM

You could use:

Code:

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