Printgrav: wpisy użytkownika

Witam, proszę o pomoc przy stworzeniu makro, używam kodu poniżej, chodzi żeby dodać linijkę do kodu żeby nie nadpisywał projektu tylko tworzył nowy . Naciskam dany przycisk i zapisuje mi nowy projekt z corela 2020 do x4 z dowolnie wpisana nazwą. Przy nowym projekcie kod nie działa a przy otwartym nadpisuje. Proszę o pomoc kod: Sub ZapiszDoX4() Dim Nazwa As String Dim Katalog As String Nazwa = ActiveDocument.FileName Katalog = ActiveDocument.FilePath Dim Zapisz As StructSaveAsOptions Set Zapisz = CreateStructSaveAsOptions With...