dim space as string
for each uTable as Word.Table in oWordDoc.Tables
for each uRow as Word.Row in uTable.Rows
space = "yes"
for each uCell as Word.Cell in uRow.Cells
if uCell.rang.text.length > 1 then
space = "no"
end if
next
if space = yes then
uRow.delete()
end if
next
next