View Single Post
 
Old 07-10-2024, 08:12 AM
gmayor's Avatar
gmayor gmayor is offline Windows 10 Office 2019
Expert
 
Join Date: Aug 2014
Posts: 4,137
gmayor has much to be proud ofgmayor has much to be proud ofgmayor has much to be proud ofgmayor has much to be proud ofgmayor has much to be proud ofgmayor has much to be proud ofgmayor has much to be proud ofgmayor has much to be proud ofgmayor has much to be proud of
Default

You would need to provide more information in order to work out how to do this..
There are no 'pages' in a Word document, so you would need to explain what constitutes a 'page'. e.g. is there a manual page break, or a section break of just text flow?
How and where is the headline placed so that it may be identified as such?
How are the notes formatted?
Would you want all the headlines and the associated notes without the tables in a single document or one document for each headline?
If it is just a matter of losing the tables, then create a new document using your document as a template and then loop through the document and delete all the tables.
e.g.
Code:
Dim i As Long
For i = ActiveDocument.Tables.Count To 1 Step -1
    ActiveDocument.Tables(i).Delete
Next
If not, can you provide a couple of consecutive pages so we may see how the document is formatted?
__________________
Graham Mayor - MS MVP (Word) (2002-2019)
Visit my web site for more programming tips and ready made processes www.gmayor.com
Reply With Quote