Hi Paul,
thanks for your response.

I will to need some time to read it all and digest it!

I ran the
SplitMergedDocument()

it gave this error 4605
no text selected

Set Rng = .Range
With Rng
If j > 1 Then .MoveEnd wdSection, j - 1
'Contract the range to exclude the Section break
.MoveEnd wdCharacter, -1
' Copy the range
.Copy



The other solution I was thinking was maybe to re save the files with the first paragraph in the document.

That would work - what ever gets the job done really.

So I could
Insert section breaks before the headings -
Use macro to split by section
Rename the Files with the first paragraph?

is that an easier solution

thank you
j