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
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