I let this message, but see the update in the next one.

Great and quick answer, that's work well !

I tried by myself to add introduction text at the top of document by adding your code with some modification, but nothing appears even there is no error. The introduction part have the bookmark name bmStartChapter.



I put this code just after the Dim list section

Code:

'Add introduction text at the beginning
        Set oSource = ThisDocument
        Set oDoc = Documents.Add(oSource.FullName)
        Set oRng = oDoc.Range
        oRng.Collapse 0
        oRng.FormattedText = oSource.Bookmarks("bmStartChapter").Range.FormattedText

I found my error

In fact I need to put the code after the line :
And that works !!!

Any ideas how to put this condition that chapter 1 and/or 2 need to be checked to validate the document ? Without this condition, the macro send a message.

Thanks, I learn quickly with you.