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

FAQFAQ  SzukajSzukaj  UżytkownicyUżytkownicy  GrupyGrupy
RejestracjaRejestracja  ZalogujZaloguj  DownloadDownload

Poprzedni temat «» Następny temat
Prosty skrypt (?) na kopiowanie tekstu.
Autor Wiadomość
SwojChlop 
Początkujący


Wersja CorelDRAW: x3
Dołączył: 20 Kwi 2017
Posty: 6
Skąd: Polska
  Wysłany: 20 Kwiecień 2017, 11:14   Prosty skrypt (?) na kopiowanie tekstu.

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 436 raz(y) 62.53 KB

 
 
Shame 
Red Dot Corporation



Wersja CorelDRAW: X7
Pomógł: 213 razy
Wiek: 39
Dołączył: 19 Kwi 2012
Posty: 2565
Skąd: Poznań
Wysłany: 20 Kwiecień 2017, 15:53   

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 
Początkujący


Wersja CorelDRAW: x3
Dołączył: 20 Kwi 2017
Posty: 6
Skąd: Polska
Wysłany: 20 Kwiecień 2017, 16:49   

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

Chyba będzie mi dane robić wszystko ręcznie niestety.
 
 
Shame 
Red Dot Corporation



Wersja CorelDRAW: X7
Pomógł: 213 razy
Wiek: 39
Dołączył: 19 Kwi 2012
Posty: 2565
Skąd: Poznań
Wysłany: 20 Kwiecień 2017, 17:02   

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
[Usunięty]

Wysłany: 20 Kwiecień 2017, 19:54   

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 
Początkujący


Wersja CorelDRAW: x3
Dołączył: 20 Kwi 2017
Posty: 6
Skąd: Polska
Wysłany: 24 Kwiecień 2017, 13:52   

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


Wersja CorelDRAW: X7
Pomógł: 2 razy
Wiek: 51
Dołączył: 16 Lis 2016
Posty: 34
Skąd: Łódź
Wysłany: 20 Kwiecień 2018, 15:21   

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 
Początkujący


Wersja CorelDRAW: x3
Dołączył: 20 Kwi 2017
Posty: 6
Skąd: Polska
Wysłany: 28 Luty 2019, 12:28   

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!
 
 
Wyświetl posty z ostatnich:   
Odpowiedz do tematu
Nie możesz pisać nowych tematów
Nie możesz odpowiadać w tematach
Nie możesz zmieniać swoich postów
Nie możesz usuwać swoich postów
Nie możesz głosować w ankietach
Nie możesz załączać plików na tym forum
Możesz ściągać załączniki na tym forum
Dodaj temat do Ulubionych
Wersja do druku

Skocz do:  

Powered by phpBB modified by Przemo © 2003 phpBB Group
Nowe zasady dotyczące cookies. Wykorzystujemy pliki cookies, aby nasz serwis lepiej spełniał Państwa oczekiwania. Można zablokować zapisywanie cookies, zmieniając ustawienia przeglądarki.
         
Strona wygenerowana w 0.13 sekundy. Zapytań do SQL: 15