Corel FORUM

[anian]

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]

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]

Czy mogę trochę pomarudzić?

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

[wawel]

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]

Czy niema czegoś takiego jak makropolecenia?

Może wie ktoś jak to zrobić?

[wawel]

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

Choc master layer jest ok..

[chezare]

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 :)