Corel FORUM
Forum użytkowników programów firmy Corel. Grafika wektorowa, rastrowa i obróbka zdjęć cyfrowych

CorelDRAW - grafika wektorowa - Kopiowanie stron

anian - 17 Luty 2011, 11:35
Temat postu: Kopiowanie stron
Mam jeszcze jeden problem.

Męczy mnie to od jakiegoś czasu.

Mam do skopiowania tą samą treść np. na 100 stron.
Jak usprawnić sobie pracę. Kopiuj - wklej to ciężka praca, zwłaszcza gdy skopiowanie 1 strony u mnie może trwać 5 sekund.

Jak to zrobić jednym ruchem?

Z góry dziękuję

wawel - 17 Luty 2011, 11:42

Przenies te tresc na master layer/warstwa glowna, pojawi sie ta tresc na wszystkich stronach. To jesli poruszamy sie w jednym dokumencie.
Duzy ten dokument jak na Corela 100 str. Moze warto rozwazyc uzycie programu do skladu, gdzie takie operacje sa b. naturalne. Tam sa strony wzorcowe przypisywane do konkretnego zakresu stron, jest mozliwosc laczenia dokumentow przez przeciaganie z okna do okna itp.
pozdr.

anian - 17 Luty 2011, 11:50

Czy mogę trochę pomarudzić?

Potrzebuję porady: krok po kroku jak to zrobić.
Czy da radę?

wawel - 17 Luty 2011, 11:58

zobacz sobie ten link
http://www.corel.com/serv...t/1200587240334

trzeba stworzyc nowa warstwe glowna i przeciagnac lub wkleic na nia te elementy ktore maja byc na wszystkich stronach.

z helpa:
Utworzyć warstwę główną Kliknij kolejno Narzędzia Menedżer obiektów. Kliknij przycisk palety wysuwanej, a następnie polecenie Nowa warstwa główna.

Przenoszenie i kopiowanie obiektów pomiędzy warstwami
Zaznaczone obiekty można przenosić lub kopiować do nowych warstw, również z warstw strony głównej na inną stronę i z powrotem.

Obiekt przenoszony lub kopiowany do warstwy znajdującej się pod jego warstwą bieżącą trafia na wierzch warstwy docelowej. Podobnie obiekt przenoszony lub kopiowany do warstwy znajdującej się nad jego warstwą bieżącą trafia na spód warstwy docelowej.

anian - 17 Luty 2011, 21:03

Czy niema czegoś takiego jak makropolecenia?

Może wie ktoś jak to zrobić?

wawel - 17 Luty 2011, 22:21

zobacz to makro moze bedzie to czego szukasz.
http://macromonster.com/i...paste&Submit=Go

Choc master layer jest ok..

chezare - 18 Luty 2011, 00:16

Szczerze mówiąc nie widzę sensu w tej operacji, ale chcesz makro, to masz :)
Kod:
Sub PowielStrone()
 Dim IleStron As Long
 Dim p As Page
 Dim Idx As Long, i As Long
 Dim x, y
 IleStron = InputBox("Ile stron wstawić?", "Kopiowanie strony", 1)
 ActivePage.Shapes.All.Copy
 y = ActiveDocument.ActivePage.SizeHeight
 x = ActiveDocument.ActivePage.SizeWidth
 Set p = ActiveDocument.InsertPagesEx(IleStron, True, ActivePage.Index, x, y)
 Idx = p.Index
 For i = Idx To Idx + IleStron - 1
     ActiveDocument.Pages(i).Layers("Warstwa 1").Paste
 Next i
End Sub


Kłopot może być np. w anglojęzycznej wersji, bo w tym skrypcie nazwa warstwy wstawiona jest na "sztywno" ("Warstwa 1"), a w angielskiej tak się nie będzie nazywała.
Żeby to było uniwersalne trzeba by najpierw przeczytać nazwę aktywnej warstwy i podstawić w miejsce wspomnianej. Ponieważ to ma być wykorzystane do jednorazowej i dosyć abstrakcyjnej działalności, to wystarczy zmienić na "Layer 1" i powinno być ok.
Aha, byłbym zapomniał. Mam dosyć blade pojęcie o pisaniu makr, dlatego eksperyment dobrze byłoby przeprowadzić na dokumencie, który do niczego nie będzie potrzebny :)
W każdym razie nie wydaje mi się, żeby te parę linijek mogło spowodować jakiś poważny wybuch :)


Powered by phpBB modified by Przemo © 2003 phpBB Group