logo
FORUM
Polska reklama i poligrafiaFORUM

Corel - automatyczny zapis do niższej wersji

| 22.10.2020 09:10

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ć.

avatar użytkownika
+ + + +

Opole
wiadomości: 327
w Signs.pl od 27.01.2013
IP: 194.29.183.XXX

| 22.10.2020 09:10

z poziomu corela się nie da automatycznie, celowe działanie utrudniające korzystanie ze starszych wersji.

avatar użytkownika
+ + + + + + + +

Małopolska
wiadomości: 1437
w Signs.pl od 04.05.2005
IP: 77.253.234.XXX

| 22.10.2020 11:10

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.

avatar użytkownika
+ + + + + + +

Kielce
wiadomości: 1120
w Signs.pl od 03.11.2008
IP: 79.184.19.XXX

| 22.10.2020 11:10

Jestem tego świadomy, u nas głównie zapisujemy wektory, obrysy, linie cięcia, tu się nie ma co rozsypywać.

avatar użytkownika
+ + + +

Opole
wiadomości: 327
w Signs.pl od 27.01.2013
IP: 194.29.183.XXX

| 22.10.2020 12:10

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

avatar użytkownika
+ + + + + + +

Kielce
wiadomości: 1120
w Signs.pl od 03.11.2008
IP: 79.184.19.XXX

| 22.10.2020 14:10

O ciekawe, ale jak tylko pracują na zwykłych wektorach to i pewnie corel wersja bez obsługi makro.

avatar użytkownika
+ + + + + + + +

Małopolska
wiadomości: 1437
w Signs.pl od 04.05.2005
IP: 77.253.234.XXX

| 22.10.2020 16:10

Niekoniecznie, potrzebujemy z VBA bo obsługujemy np Winplota czy Nesting z Ecuta ;)

avatar użytkownika
+ + + +

Opole
wiadomości: 327
w Signs.pl od 27.01.2013
IP: 194.29.183.XXX

| 25.10.2020 17:10

Zadzwoń do Czarka ze studiocdr. Ma napisane gotowe makra.

avatar użytkownika
+ + +

Bartosz_ZCz
wiadomości: 190
w Signs.pl od 04.03.2016
IP: 31.0.64.XXX
REKLAMA:

REKLAMA
 
Signs.pl - Polska Reklama i Poligrafia © 1997-2020 ICOSWszystkie prawa zastrzeżone. ISSN 2657-4764