Deleting Rows That Contain Blank Cells in WORD

[jj511]

I have been trying to develop a macro to search though my 1000+ page Word Doc, look for blank cells within the word table and then delete any rows that contain blank cells. So far, no luck. I would do this in Excel, but my client has specific formatting that requires a mail merge for the initialAnyone have any suggestions?

 

[jj511]

Here is the code I was working with. It looks for completely blank rows and deletes them; however, I need it to delete the row if one or more cells in the row is blank. Is this possible?

Sub DeleteEmptyTableRows()
Application.ScreenUpdating = False
Dim Tbl As Table, cel As Cell, i As Long, n As Long, fEmpty As Boolean
With ActiveDocument
For Each Tbl In .Tables
n = Tbl.Rows.Count
For i = n To 1 Step -1
fEmpty = True
For Each cel In Tbl.Rows(i).Cells
If Len(cel.Range.Text) > 2 Then
fEmpty = False
Exit For
End If
Next cel
If fEmpty = True Then Tbl.Rows(i).Delete
Next i
Next Tbl
End With
Set cel = Nothing: Set Tbl = Nothing
Application.ScreenUpdating = True
End Sub

 

[Macropod]

Cross-posted and replied to at: Macro to delete all empty rows from all tables
(where the code was lifted from)
For cross-posting etiquette, please read: Excelguru Help Site - A message to forum cross posters

Please also use code tags, inserted via the # button on the posting menu, when posting code.