The same document that I used your suggestions yesterday to number page 3 when it existed, I now would like to know how to delete rows of a table that are not used. The user will enter data in a "MacroButton Field" box and the data will be entered into a row 1. The next "MacroButton Field" will enter data into row 2 and so forth and so forth. In all there are 20 rows in the table. If the user uses 5 rows or 18 rows, I would like them to be able to run a macro to delete the empty rows or have the macro run when they print or save perhaps so it is completed automatically. One of my issues is that each row has the "MacroButton Field text: "Click here to enter first item." Thanks in advance for your assistance.

You could use a macro like:
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

__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]

And you can't see any relevant thread titles in this forum? Have a look at posts in the last few days.

__________________
Andrew Lockton
Chrysalis Design, Melbourne Australia

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.

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

__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]

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,

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

Attached Files

Try - Dissemination Meeting Agenda Template.dotm (82.9 KB, 12 views)

Your template has nothing in 'ThisDocument' code module (or any other) to initiate the class module - which hasn't been named appropriately - and even then, the class module is empty. You need to do all the setup as detailed in the links.

__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]

I was able to accomplish my task and have Word delete all empty rows.

Thank you very much for all the assistance.