Delete Empty Table Rows

gmayor · #1 02-27-2017, 12:04 AM

The simplest solution is to convert the text box to a frame. If you want to keep the space (and if you did why remove the rows in an unbordered table) set the frame height to exact - otherwise set it to auto so it will shrink (as in the attached). You can then loop through the story ranges and remove the empty rows, modifying your code to process the range rather than the document.

cltay87 · #2 02-27-2017, 12:43 AM

Thanks Gmayor, it works well. But it always gave run-time error '13' : Type mismatch after the macro ends.

When i debug, Set oStory = oShape.TextFrame is highlighted.

Not sure what's wrong.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Macro to delete all empty rows from all tables	braddgood	Word VBA	15	10-02-2015 01:54 PM
Delete row with empty cel in a table	vibor	Word VBA	9	05-03-2015 05:42 AM
Delete All empty Rows - Print - Undo all Rows deleted	Bathroth	Word VBA	1	10-01-2014 01:40 PM
Creating VBA Code to Delete Empty Column in Table	Faugs	Word VBA	5	08-07-2014 03:29 PM
Macro to delete rows with all empty cells	ubns	Excel Programming	2	08-14-2012 02:01 AM