Delete table cells if nothing is filled

[ubns]

Hi,



Please find the attached document.

We merge this document in a application and it prepopulates the information in the cells.

If there is no information - then it comes as blank.

Is it possible to develop a macro or something like that - to delete the entire rows of the tables; if there is no information populated in the cells - meaning all (fillable cells in a row are blank then delete the entire row).

Regards

Umesh Banga

[gmaxey]

Sub ScratchMacro()
'A quick macro scratch pad created by Greg Maxey
Dim i As Long
Dim lngCount As Long
For i = ActiveDocument.Tables(1).Rows.Count To 1 Step -1
  lngCount = ActiveDocument.Tables(1).Rows(i).Cells.Count * 2 + 2
  If Len(ActiveDocument.Tables(1).Rows(i).Range.Text) = lngCount Then
    ActiveDocument.Tables(1).Rows(i).Delete
  End If
Next
End Sub

[macropod]

Umesh,

I have previously provided you with a quite extensive macro that includes, amongst other things, code for deleting blank rows.

Rather than simply treating this forum as a free coding resource, it would be better if you invested some time in seeing how previously solutions might be adapted to new situations.

Of course, we're always here to help if you get stuck.

[ubns]

Hi,

I have tried the code but due to the table having vertically merged cell (the first column) it is throwing the error (see attached).

Anyone got the solution for the debug issue?

[macropod]

Your attached document really isn't amenable to a simple deletion of empty rows. With vertically merged cells in the first two columns, spanning different rows, and vertically split cells in the remaining two columns, it becomes somewhat challenging to determine what constitutes a 'row' in a given instance (in fact, it's generally not a row you're dealing with at all but a series of cells within a row) and which cells should be deleted.