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
zamiana tekstu na krzywe
Autor Wiadomość
infografik
Początkujący


Dołączył: 17 Sie 2009
Posty: 3
Skąd: Łódź
Wysłany: 17 Sierpień 2009, 20:39   zamiana tekstu na krzywe

witam!

czy ktos moze mi pomoc? mam 130 stron tekstu i grafiki!
czy ktos wie jak hurtowo zamienic wszystkie tekty ze wszystkich
stron na krzywe???

pozdrawiam i z gory dziekuje za odpowiedz!
 
 
wawel 
Ekspert
wawel


Pomógł: 261 razy
Dołączył: 30 Mar 2008
Posty: 2143
Skąd: podgorze
Wysłany: 17 Sierpień 2009, 20:49   

w tym watku wrzucilem macro do zamiany wszystkiego na krzywe w calym dokumencie wiec tekstow rowniez.
http://corel.wodip.opole....881cad26e#11568
Jesli maja byc tylko teksty skrzywione to zamiana
(cdrShape) na (, cdrTextShape) powinna pomoc.

ps Jak sie pracuje na takim dokumencie 130 str w CorelDRAW? To nie czeste zjawisko...
pozdr.
 
 
infografik
Początkujący


Dołączył: 17 Sie 2009
Posty: 3
Skąd: Łódź
Wysłany: 18 Sierpień 2009, 08:14   

pracuje sie dobrze - robie prosty skład ksiazki
ale musze sie przerzucic na na jakis inny program
co polecacie dobrego i w miare prostego do skladu ksiazek???

dziekuje za odpowiedz - a mam takie jeszcze inne pytanko
mozna to makro jakos przerobic aby na krzywe zamieniał tylko dana jedna
czcionke?

albo jak w calym dokumencie wyszukac dan rodzaj czcionki??

pozdrawiam
 
 
wawel 
Ekspert
wawel


Pomógł: 261 razy
Dołączył: 30 Mar 2008
Posty: 2143
Skąd: podgorze
Wysłany: 18 Sierpień 2009, 08:53   

No nie, Corel Draw i sklad ksiazki to zupelnie nie trafione narzedzie do tego, program zupelnie nie wspomaga typowych funkcji dla skladu tekstu.
To juz darmowy Scribus lepiej sobie radzi z tekstem w paragrafach niz Draw.
Do skladu jest wiele programow: Jesli corel to Corel Ventura, Jesli Adobe to PageMaker, InDesign, Frame Maker, moze tez byc Polski program Kombi b. dobry i tani wspomaga wiele funkcji dot. skladu. - dzielnie, edytor slownikow, korekta tekstu, spiker, wiszace spojniki, wdowy, bekarty, gubienie wiersza, tworzenie regul do dzielenia, rozdzialy, numeracja stron, strony wzorcowe, stol montazowy do robienia skladek (mozliwosc rozsuniecia ich w zaleznosci od grubosci papieru) itd. www.3n.com.pl
pozdr.
 
 
infografik
Początkujący


Dołączył: 17 Sie 2009
Posty: 3
Skąd: Łódź
Wysłany: 18 Sierpień 2009, 09:00   

bede sie musial na jakis przeniesc! ale taki sklad jak robie to corel mi wystarczyl
naszczescie!

mam tylko taki problem jakas dziwna czcionka mi sie wdarla gdzies w tekst i chcialbym
ja zamienic na inna - jak jak wyszukac? dana czcionke? da sie jakos?
 
 
wawel 
Ekspert
wawel


Pomógł: 261 razy
Dołączył: 30 Mar 2008
Posty: 2143
Skąd: podgorze
Wysłany: 18 Sierpień 2009, 09:12   

Mozna albo przez edycja -> znajdz obiekty i tam wskazac rodzaj obiektu tekstowego ze zdef. nazwa albo z palety warstwy mozna rozwinac ja i bedzie mozna zobaczyc nazwe czcionki i klikajac ja mamy zaznaczony tekst pisany ta czcionka

na stronie http://www.krasbit.com/pl...-make-group-tab jest macro ktore wg opisu znajduje obiekty tekstowe ze zdefiniowana nazwa (opcjonalnie - wiec byc moze to bedzie najwygodniejsze) nie sprawdzalem ale z opisu wyglada ze bedzie ok
 
 
nev555 
Znawca


Pomógł: 23 razy
Wiek: 40
Dołączył: 17 Sty 2007
Posty: 173
Skąd: Poznań
Wysłany: 18 Sierpień 2009, 09:16   

Edycja>Znajdź i zamień>Zamień obiekty>Zamień właściwości tekstu
powinno banglać ;)
 
 
 
wawel 
Ekspert
wawel


Pomógł: 261 razy
Dołączył: 30 Mar 2008
Posty: 2143
Skąd: podgorze
Wysłany: 18 Sierpień 2009, 18:47   

infografik napisał/a:
a mam takie jeszcze inne pytanko
mozna to makro jakos przerobic aby na krzywe zamieniał tylko dana jedna
czcionke?


sprawdz jeszcze to macro

to dla przykladu dziala dla fontu Arial i zamienia na krzywe, ale mozna wpisac inny

Sub curvesonefont()
Dim s As Shape
Dim how As Integer
Dim page As Integer
page = ActiveDocument.Pages.Count
For how = 1 To page
For Each s In ActiveDocument.Pages(how).FindShapes(, cdrTextShape)
If s.Text.Story.Font = "Arial" Then
s.CreateSelection
ActiveSelection.ConvertToCurves
End If
Next s
Next how
End Sub
 
 
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.09 sekundy. Zapytań do SQL: 9