CREATE 100 FILES

bhbp.bg2
over 1 year ago

Hello,
How to create fast 100 - 200 files with names File_0000000001.cdr - File_0000000050.cdr - File_0000000200.cdr 

Digital part of name must be 10 places. Leading zeros most be to 10 places

Greetings!

Parents
No Data
Reply
  • over 1 year ago

    I would recommend using SaveAsCopy.

    Sub SaveManyCopies()
    Dim x As Integer
    
    For x = 1 To 10
        ActiveDocument.SaveAsCopy ActiveDocument.FilePath & "File_" & Format(x, "0000000###") & ".cdr"
    Next x
End Sub

    Happy Coding, 

    -Shelby

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.