I Need Help... It's been a while since i've reached out.
I have a Document with 2 pages.
I need each (document , page 1 & page 2) to all save in different locations with one click.
Example: Upon pressing command button...
Currently I have 3 command buttons saving each out individually. I want to consolidate but need direction. Any help is appreciated.
Chieri
Keeping it simple, you could do something like this:
Sub SirSaveALot() Dim d As Document Dim p As Page Dim sa As New StructSaveAsOptions sa.Range = cdrSelection Set d = ActiveDocument d.SaveAs "C:\Temp\Save\AllPages.Cdr" For Each p In d.Pages p.Activate p.Shapes.All.CreateSelection d.SaveAs "C:\Temp\Save\" & p.Name & "\" & p.Name & ".cdr", sa Next p End Sub
Hope that gets you started.
-Shelby
sir just like this can we also export few selected pages of a document and save as a cdr file .?
Save the document as copy and delete the unwanted pages!
@paraggoyal: Yes..