Microsoft Office Forums - View Single Post - [Solved] Remove row in word table if one cell is blank

gmayor · 11-05-2020, 09:52 PM

As this appears to be the result of a mail merge, by using https://www.gmayor.com/MergeAndSplit.htm or
https://www.gmayor.com/individual_merge_letters.htm. with only a minor change you could run the macro from the process on the fly:

Code:

Sub FixTable(oDoc As Document)
'Graham Mayor - https://www.gmayor.com - Last updated - 06 Nov 2020
Dim oTable As Table
Dim i As Integer, j As Integer
    For j = oDoc.Tables.Count To 1 Step -1
        Set oTable = oDoc.Tables(j)
        For i = oTable.Rows.Count To 1 Step -1
            oTable.Rows(i).Select
            If Len(oTable.Rows(i).Range) <= 6 Then
                oTable.Rows(i).Delete
            End If
        Next i
        If oTable.Rows.Last.Cells.Count = 4 Then
            oTable.Rows.Last.Delete
        End If
    Next j
    Set oTable = Nothing
End Sub