Append many documents in a new one

Hi,
Is there a way in VBA to append documents? (or pages) In Flexpro, I can open an empty document and, with drag and drop, I insert another existing document in the new one. It is added at the end of the open document. How may I do that in VBA?

For example, in my application, I got a lot of small “report_x” document. I want to create a new document named “GlobalReport” wich is the sum of all the others document. After doing this, I’ll be able to edit the pages number of “GlobalReport” and print it alone.

Thanks!

Thanks for the code! It works, but I had to add these lines :[code] oSourceDoc.Select
[b]oSourceDoc.Open = True[/b]
oSourceDoc.Selection.Collapse
oPage.Item(i).Select
oSourceDoc.Selection.Copy
oDestDoc.Select
[b]oDestDoc.Open = True[/b]
oDestDoc.Selection.Paste
oDestDoc.Selection.Collapse[/code]
Otherwise, the operations .Collapse and .Paste couldn’t work when the documents are closed.

Also, this code copies the shapes in the first page of my document. Suppose I add a new page in the document [code]Dim oNewPage As Shapes
Set oNewPage = oSourceDoc.pages.Add[/code] How can I select the new page so the shape will be copied in it ?

Thanks