Find, Copy and Paste

[JohnHare]

Hi, I am new in this forum, have just very limited skills on VBA yet and hope to get some help for a script.
I have a word document with 250 pages. On each page is a headline and a table. On some pages there are notes after the table which I need to copy to a new document together with the headline. If there are no notes I dont want to copy it.
Are there any ideas how to do that?

[gmayor]

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.

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?

[Guessed]

There are multiple ways you could approach this problem and the best solution would heavily depend on how you define 'notes' and 'headline'. If you are consistently using styles then it could be coded relatively easily.

I would probably do this as a multi-step process.
1. Remove all tables using Graham's suggestion
2. Remove all empty paragraphs (if there are any)
3. Step through each 'headline' and delete it if it is followed by another 'headline'