Microsoft Office Forums - View Single Post - [Solved] Design Macro or Code to Delete Table Rows When Null/Blank/Empty Upon Doc Close/Save

macropod · 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