SAVE FILE AS MACRO

Hello,
I have active document DOCUMENT_0000000001.cdr
I need macro to save active document as DOCUMENT_0000000002.cdr

Each run of macro SAVE_AS must save active document with name increased with 1 of active document.

Each activation of the macro should save the active document with the name of the active document incremented by 1.

So, if active document name is DOCUMENT_0000000199.cdr, SAVE_AS macro activation must save active document as DOCUMENT_0000000200.cdr

Greetings!

Top Replies

Shelby Moore over 1 year ago +1

I would recomment using the SaveAsCopy. Sub SaveManyCopies() Dim x As Integer For x = 1 To 10 ActiveDocument.SaveAsCopy ActiveDocument.FilePath & "DOCUMENT_" & Format(x, "0000000###" ) & ...

Parents

No Data

Reply

Shelby Moore over 1 year ago

I would recomment using the SaveAsCopy.

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

Happy coding,

-Shelby

Children

No Data