CodePudding user response:
Dim space as stringFor each uTable as Word. Table in oWordDoc. Tables
For each uRow as Word. Row in uTable. Rows
Space="yes"
For each uCell as Word. The Cell in uRow. Cells
If uCell. Reaching. Text. Length & gt; 1 then
Space="no"
End the if
Next
If space=yes then
URow. Delete ()
End the if
Next
next