Corel FORUM

SwojChlop

Dzień dobry.

Specjalnie na forum się zalogowałem, bo sam poradzić sobie nie mogę.

Szukam sposobu by ułatwić pracę i nie wiem jak to zrobić.
Tłumaczę o co chodzi.

W górnej części wpisuję np. Karol, a niżej mam przygotowanych kilka lub kilkanaście opcji by napis ten wyróżnić. Załączam obrazek by wytłumaczyć o co chodzi dokładniej.

Z góry przepraszam za zielone pojęcie w temacie i dziękuję za odpowiedzi.

Edit. Nie dopisałem jaki program. Corel Draw X3

jak zrobic.jpg

Pobierz Plik ściągnięto 455 raz(y) 62.53 KB

Shame

Nie wiem, czy bez makra się obejdzie.

Próbowałem to samo uzyskać przez klonowanie tekstu oraz style, ale nawet jeśli działa to w sensie zmiany fontu i jego właściwości (póki wszystko dzieje się w obrębie narzędzi tekstowych), tak nadanie fazy czy innych efektów usuwa powiązanie klonu z obiektem sterującym :-/

SwojChlop

Szkoda, że nie znam się na tym za bardzo.

Chyba będzie mi dane robić wszystko ręcznie niestety.

Shame

Teoretycznie mógłbyś nagrać całe to makro - od momentu jak kopiujesz zaznaczony tekst i robisz to wszystko co robisz. Chociaż próbowałem u siebie i nie bardzo to wychodzi. Np. rejestrator nie zapisuje zmiany fontu, pogrubienia/pochylenia, nadania konturu... Rejestruje jak kopiuję obiekt, dodaję fazę i zmieniam kolor.

Zastanawiałem się nad tym, że po prostu sobie zrobisz wzorce (np. jeden z fazą w tym kolorze, drugi w innym i z konturem) i będziesz tylko kopiował efekty/właściwości. Niestety, dla przykładu Faza się nie kopiuje :-/

Ogólnie dałoby to "nieco" przyspieszyć, zamiast za każdym razem robić od zera, ale z automatu to potrzeba by już ciut lepszego makro. Może ktoś się tu zlituje i pomoże SwojemuChłopowi :mrgreen:

bidon184

z tego co widze ze screenu to chodzi o style,no jesli by to chodzilo o jeden font to oki,ale jesli chodzi o rozne ,to nieraz moze wysc bajzel,chyba ze ja czegos nie kumam ,co sie zdarza :)

SwojChlop

Dzięki wielkie chłopaki. Taki los, że wszystko ręcznie robić :) Do zrobienia, ale kilkanaście godzin bym zaoszczędził. Trzymajcie się ;)

grzjanik

Taka zmiana to prosta piłka.

Musisz tylko w Menedżerze objektów każdy tekst artystyczny nazwać "Demo"...
następnie tylko wpisać makro:

Kod:

Sub DemoText()
Dim s As Shape, ss As ShapeRange, strD$
On Error Resume Next
strD = InputBox("Podaj tekst")
Set s = ActiveLayer.Shapes.FindShape("Demo", cdrTextShape)
For Each s In ActivePage.Shapes.All
s.Text.Story.Text = strD
Next s
End Sub

I tylko uruchamiać je kiedy chcesz zmienić tekst.

Pozdro.
GrzJanik

Wstawiam przykład Demo

SwojChlop

Grzjanik !!! Chłopie, ale mi dupę uratowałeś. Co prawda dopiero teraz to czytam, ale ja co roku mam mnóstwo pracy z tym. Jesteś wielki!

Jakbym mógł to bym Ci chętnie jakąś flaszkę postawił!

Sposób działa - u mnie skróci to pracę kilkunastokrotnie! Czyli co roku o jakieś tydzień - dwa pracy mniej.

Dziękuje i polecam tego użytkownika!