Cześć!
Czy ktoś z Was ma i korzysta z rozwiązania, które pozwala automatycznie zapisywać pliki np z wersji 2018 do x5?
Wiem, że można ręcznie zapisać każdy plik, ale zapominam. A mamy w firmie różne wersje.
Pobrałem też wczoraj jakąś wtyczkę wx_CDRSaveOldVersion ale nie za bardzo mi to chce działać.
z poziomu corela się nie da automatycznie, celowe działanie utrudniające korzystanie ze starszych wersji.
Działanie niektórych narzędzi jest nie do odtworzenia w starszych wersjach przez co plik potrafi się rozsypać.
Dlatego też zapisywanie do starszej wersji jest obarczone odpowiednim komunikatem.
Jestem tego świadomy, u nas głównie zapisujemy wektory, obrysy, linie cięcia, tu się nie ma co rozsypywać.
W edytorze VBA wklej sobie poniższe makro i je zapisz.
Stwórz w karolu nowe menu z przyciskiem i przypisz makro do przycisku, ewentualnie przypisz też skrót klawiaturowy.
Po naciśnięciu tego przycisku zamiast standardowego przycisku zapisz będziesz miał zapisane od razu do wersji X5.
Jedyna uwaga jest taka, że plik musi być wcześniej zapisany i zostanie on nadpisany.
Jeżeli utworzyłeś nowy dokument to wyskoczy ci zwykłe okno zapisz jako.
Da się to obejść, ale trzeba by uzupełnić makro o nowe okienko do wpisania nazwy pliku i katalogu.
Sub ZapiszDoX5()
Dim Nazwa As String
Dim Katalog As String
Nazwa = ActiveDocument.FileName
Katalog = ActiveDocument.FilePath
Dim Zapisz As StructSaveAsOptions
Set Zapisz = CreateStructSaveAsOptions
With Zapisz
.Filter = cdrCDR
.Version = cdrVersion15
.EmbedVBAProject = True
.IncludeCMXData = False
.Range = cdrAllPages
.EmbedICCProfile = True
End With
ActiveDocument.SaveAs Katalog + "" + Nazwa, Zapisz
End Sub
O ciekawe, ale jak tylko pracują na zwykłych wektorach to i pewnie corel wersja bez obsługi makro.
Niekoniecznie, potrzebujemy z VBA bo obsługujemy np Winplota czy Nesting z Ecuta 
Zadzwoń do Czarka ze studiocdr. Ma napisane gotowe makra.
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 Zapisz
.Filter = cdrCDR
.Version = cdrVersion15
.EmbedVBAProject = True
.IncludeCMXData = False
.Range = cdrAllPages
.EmbedICCProfile = True
End With
ActiveDocument.SaveAs Katalog + "" + Nazwa, Zapisz
End Sub
Czy mozna utworzyc makro, ze robie prostokat i zmieniam jego wielkosc, a w kazdym rogu na srodku jest kolo 1cm, ktore przy zmianie wielkosci dalej ma 1cm?
Więcej nowości w tym dziale
