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