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!
Private Sub test()Dim z& For z = 1 To 200 Debug.Print "File_" & Format(z, "0000000###") & ".cdr" NextEnd Sub
Thank You, but the code above generate only list of names. I need files to be created in folder.
use ActiveDocument.SaveAs FileName
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