Delete colums in a table using a macro if 2 column is empty




I have found this macro which is working, but not entirely as I want.
I have large document (on average with 500 pages) in which I have t
delete every row in tables that have in second column no value.
Document is made using Mail Merge, so I have table on 1 page, than on 3
6, 8,...

So far is macro deleting all empty columns in one table in which i
cursor, but it will not delete empty columns in all other tables.

Public Sub DeleteEmptyColums()
Dim Table As Table, Row As Range, Cell As Cell, Counter As Long, _
NumRows As Long, TextInRow As Boolean
' Specify which table you want to work on.
For Each Table In ActiveDocument.Tables
' Set a range variable to the first row's range
Set Row = Table.Rows(1).Range
NumRows = Table.Rows.Count
Application.ScreenUpdating = False
For Counter = 1 To NumRows
StatusBar = "Row " & Counter
TextInRow = False
With Selection.Tables(1)
For i = .Rows.Count To 1 Step -1
If Len(.Cell(i, 2).Range.Text) = 2 Then
End If
Next i
End With
Next Counter
Next Table
Application.ScreenUpdating = True
End Sub

Could somebody help me.

Kind regards,

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question