Saving Documents + Exporting Pages HELP

CDT
over 6 years ago

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

  • Document will save in location 1
  • Page 1 will save in location 2
  • &
  • Page 2 will save in location 3. 

Currently I have 3 command buttons saving each out individually. I want to consolidate but need direction. Any help is appreciated. 

Chieri

Parents
  • over 6 years ago

    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

Reply Children
No Data

© Corel Corporation. All rights reserved. The content herein is in the form of a personal web log ("Blog") or forum posting. As such, the views expressed in this site are those of the participants and do not necessarily reflect the views of Corel Corporation, or its affiliates and their respective officers, directors, employees and agents. Terms of Use / Privacy​ ​/ ​Cookies / Terms and Conditions / User Guidelines.