That's more elegant in that it doesn't muck up the order of rows. Are you
aware that it will fail if the table has vertically merged cells? (Which is,
to be sure, an unlikely circumstance in this case.)
"Greg Maxey" wrote in message
...
Yes that would work.
You could stick your cursor in the table and run this macro:
Sub ScratchMacro()
Dim oTbl As Table
Dim oRow As Row
Dim oCell As Cell
Dim bNotEmpty As Boolean
Set oTbl = Selection.Tables(1)
bNotEmpty = False
For Each oRow In oTbl.Rows
For Each oCell In oRow.Cells
If Len(oCell.Range.Text) 2 Then
bNotEmpty = True
Exit For
End If
Next
If bNotEmpty = False Then oRow.Delete
bNotEmpty = False
Next
End Sub
--
Greg Maxey/Word MVP
A Peer in Peer to Peer Support
Jezebel wrote:
Sort the table. Then all the empty rows will fall together and you can
delete them all at once.
"Ginger" wrote in message
...
How ould I remove all empty rows within a table without having to
select each
one?
|