Delete Empty Table Rows

gmayor · #1 02-27-2017, 01:30 AM

My fault, I sent you an unsaved earlier version

The sub should be

Code:

Sub ProcessRanges()
Dim oStory As Range
   For Each oStory In ActiveDocument.StoryRanges
        DeleteEmptyRows oStory
        If oStory.StoryType <> wdMainTextStory Then
            While Not (oStory.NextStoryRange Is Nothing)
                Set oStory = oStory.NextStoryRange
                DeleteEmptyRows oStory
            Wend
        End If
    Next oStory
    Set oStory = Nothing
End Sub

cltay87 · #2 02-27-2017, 04:23 AM

It works perfect! Thank you gmayor!

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