Thanks so much for this, it’s massively appreciated. I have had a quick play and it looks pretty much spot on. One issue is that each header shows the full pile path not just that header.
I’ll have a proper sit down with it over the weekend!

Thanks again!

That was intentional - it wasn't apparent from your specs as to how much was to be retained. To get just the file's own folder, change:
.InsertAfter vbCr & strRelPath & vbCr
to:
.InsertAfter vbCr & Split(strRelPath, "")(h - 2) & vbCr

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

Thanks again Paul. What you have provided is great and is so close to what I need to achieve. I appreciate that your not here just to provide the script for me and I'm trying to learn VBA but it's quite a learning curve to achieve this. I will try and resolve this myself but if your generosity extends to look at this I've added a onedrive link below to a dummy folder structure. This includes a word doc which includes the heading structure etc I need to end up with, It might make more sense than how I have described it!

Microsoft services

Like I said if you cannot assist, I completely understand.

Thanks again.