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

Discussion in 'Word Tables' started by Rok, Nov 25, 2013.

  1. Rok

    Rok Guest

    Hi,

    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
    .Rows(i).Delete
    End If
    Next i
    End With
    Next Counter
    Next Table
    Application.ScreenUpdating = True
    End Sub

    Could somebody help me.

    Kind regards,
    Ro
     
    Rok, Nov 25, 2013
    #1
    1. Advertisements

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 (here). After that, you can post your question and our members will help you out.