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

macropod · #1 02-14-2019, 01:38 PM

Did you check out the links I provided in post #2?

aaghd72 · #2 02-15-2019, 06:29 AM

Yes, I did. Still couldn't apply the code to an event. I guess I need more assistance. It isn't coming to me. Thanks,

aaghd72 · #3 02-15-2019, 06:44 AM

This is the code I am trying. When I saved the file (.docm) it didn't work. What am I doing wrong? Please! Thanks!

Private Sub oApp_DocumentBeforeSave(ByVal Doc As Document, _
SaveAsUI As Boolean, Cancel As Boolean)
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

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