Design Macro or Code to Delete Table Rows When Null/Blank/Empty Upon Doc Close/Save

macropod · #1 02-11-2019, 02:19 PM

You could use a macro like:

Code:

Sub DelRows()
Application.ScreenUpdating = False
Dim r As Long
With ActiveDocument.Tables(1)
  For r = .Rows.Count To 1 Step -1
    With .Rows(r)
      If .Range.Fields.Count > 0 Then .Delete
    End With
  Next
End With
Application.ScreenUpdating = True
End Sub

Intercepting events like saving and printing, so your table is automatically updated beforehand requires enabling the relevant event handlers. See:
https://wordmvp.com/FAQs/MacrosVBA/AppClassEvents.htm
https://wordmvp.com/FAQs/MacrosVBA/I...tSavePrint.htm

aaghd72 · #2 02-14-2019, 08:04 AM

This VBA works perfectly when I access the Macro window and run it. I explored options yesterday to get it to run when the document is saved or when you click a button but just could not figure out how to accomplish that. I would rather have the empty rows deleted when the file is saved. If you could help me add that code, I would be greatly thankful. I know as I see more of this code, it will bring back what knowledge I have forgotten. Thanks in advance.

Thread Tools
Show Printable Version Email this Page
Display Modes
Switch to Linear Mode Hybrid Mode Switch to Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Macro that deletes all empty rows in selected table	MathiasFC	Word VBA	2	02-10-2019 04:06 PM
Delete Empty Table Rows	cltay87	Word VBA	4	02-27-2017 04:23 AM
Macro to delete all empty rows from all tables	braddgood	Word VBA	15	10-02-2015 01:54 PM
Delete All empty Rows - Print - Undo all Rows deleted	Bathroth	Word VBA	1	10-01-2014 01:40 PM
Macro to delete rows with all empty cells	ubns	Excel Programming	2	08-14-2012 02:01 AM