Macro to delete a row in a table

[CAP]

I need a macro to search tables in a word document, find blank cells and
delete the row that they are in
any offers?

 

[Greg Maxey]

Try something like:
Sub scratchmacro()
Dim oTbl As Table
Dim oCell As Cell
Dim i As Long
For Each oTbl In ActiveDocument.Tables
For Each oCell In oTbl.Range.Cells
If Len(oCell.Range.Text) < 3 Then
i = oCell.RowIndex
oTbl.Rows(i).Delete
End If
Next
Next

End Sub