How do I place two documents on top of each other

I haven't tried this before, but I stumbled through a macro that seems to work for me on X7, at least for my testing using a couple of simple documents:

Sub copy_paste_all_multiple_pages()
Dim doc_source As Document
Dim doc_target As Document
Dim page_index As Long
Dim paste_layer As Layer

Set doc_source = OpenDocument("d:\test_B.cdr")
Set doc_target = OpenDocument("d:\test_A.cdr")

Application.Optimization = True

For page_index = 1 To doc_source.Pages.Count

    doc_source.Pages.Item(page_index).Shapes.All.Copy
    Set paste_layer = doc_target.Pages.Item(page_index).CreateLayer("Paste Layer")
    paste_layer.Paste

Next page_index

Application.Optimization = False
Application.Refresh

End Sub

That walks through the pages in order. For each page, it copies from the "source" document, then creates a new layer on the corresponding page of the "target" document and pastes the copied content there.

I didn't include any user interface for selecting the documents, and it's not checking to see if the page count is the same for the two documents.

No guarantees here. Don't try it on anything that you don't have safe copies of!

copy paste all multiple pages.gms

The userform looks like this:

Save

Save