combining multiple cdr files into one

I have 25 (small) one-page CDR files that would be easier to store and use as one file.

(Google finds only old and limited discussions on this topic)

Is there any way to combine these separate pages into one CDR file?    It  still would not be a very large file  (large files have been quoted to be a problem in some older posts)

Acrobat has a utility to combine multiple PDF's into one.    A similar tool would be helpful in this case.

Thanks   Richard

    • If your file itself is relatively small, you can import it into one file. Then use the script to align, distribute evenly

      • Start with 1 file then import the others 1 by one. Could possibly put each on it's on page or, depending on size, just place them next to each other across & down.

        • I should have been more clear:  I want a single step or automated solution for this as in Adobe Acrobat.   Suppose I had a 100 files?

          I've not had a chance to review the youtube video yet.   It is 17 minutes and I don't know if I have the energy for that!  And is it in English?

        • Hello,

          Try this code, please, written specially for You

          Before start this code You must.
          1. Open all source files

          2. Open destination file and make it active

          3. Start code below

          Greetings!

          Sub Combine_files_in_one()
          Dim mdoc As Document
          Dim madoc As Document
          Set madoc = ActiveDocument
          For Each mdoc In Application.Documents
          If mdoc <> madoc Then
          mdoc.Pages(1).Shapes.All.Copy
          madoc.AddPages 1
          madoc.ActivePage.ActiveLayer.Paste
          End If
          Next
          End Sub

          • Thank you very much BHBP.

            This code has worked perfectly.

            And what's even better:   I managed to make it work all by myself!  (never done that before!).  I opened \Tools\Scripts\Script Editor and then Run, and things were quiet but it ran and all the 'pages' appeared in tabs at the bottom of the screen.

            I guess this is intuitive to those who know, and that using CD perhaps isn't the best tool for the illiterate, but I do think that it isn't very intuitive.  However as I've been fooling with CD since time immemorial, even if not using it in a sophisticated fashion and therefore perhaps aren't totally illiterate, I guess I shouldn't complain, particularly as I made it work without wiping out all my files.

            My gratitude to you.  I shall save this interaction.

            Best regards

          • I ran into the same problem but I needed to add multi-page files into a single file which wasn't covered in Bhbp.bg2's code so I threw the code into ChatGPT and asked it to make it work for multiple page documents. This worked for my situation.

            Sub Combine_files_in_one()
            Dim mdoc As Document
            Dim madoc As Document
            Set madoc = ActiveDocument

            For Each mdoc In Application.Documents
            If mdoc <> madoc Then
            Dim pageNum As Long
            For pageNum = 1 To mdoc.Pages.Count
            mdoc.Pages(pageNum).Shapes.All.Copy
            madoc.AddPages 1
            madoc.ActivePage.ActiveLayer.Paste
            Next pageNum
            End If
            Next

            MsgBox "Finished.", vbInformation, "Macro Completed"
            End Sub