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: 425
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: 1498
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: 1241
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: 425
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: 1241
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: 1498
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: 425
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: 193
w Signs.pl od 04.03.2016
IP: 31.0.64.XXX

| 05.01.2022 20:01

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

brak ikonki
?

wiadomości: 1
w Signs.pl od 05.01.2022
IP: 89.228.200.XXX

| 05.01.2022 22:01

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?

brak ikonki
+ +

Gliwice
wiadomości: 104
w Signs.pl od 28.05.2020
IP: 5.173.115.XXX
REKLAMA:

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