Zobacz temat - Zamiana tekstu na krzywe w pliku projektu

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

CorelDRAW - grafika wektorowa - Zamiana tekstu na krzywe w pliku projektu

F-Głowy - 2 Lipiec 2015, 12:29
Temat postu: Zamiana tekstu na krzywe w pliku projektu

Czy program ma opcje zamieniania automatycznego wszystkich obecnych w dokumencie tekstow na krzywe? Wiem ze jest to mozliwe przy eksporcie do PDFa. Ale czy zapisujac projekt do formatu CDR moge kazac jakos programowi aby kazdy tekst mi zamienil na krzywe?

Bo ja dotąd robię to ręcznie (CTRL+Q) przy każdej pozycji.

chezare - 2 Lipiec 2015, 13:28

Normalnie to Edit-> Select All -> Text i ctrl+Q, ale to może być problem z jakimiś pogrupowanymi obiektami.
Możesz to zrobić makrem, znajdziesz w odpowiednim dziale forum.
Zamienianie wszystkich tekstów w projekcie na krzywe jest pomysłem niespecjalnie mądrym, bo za tydzień będziesz coś chciał zmienić i nie będziesz pamiętał jakiego fontu użyłeś, albo będziesz przepisywał dwie strony, żeby zmienić dwa wyrazy.

Trurl - 2 Lipiec 2015, 14:32

Zamiast zamieniać fonty na krzywe, wystarczy, że zrobisz pdf z zamianą fontów na krzywe, a jeśli chcesz mieć cdr, to zaimportuj tego pedeefa do nowego pliku cdr.

Żeby nie pogubić fontów, zapisuj pracę razem z fontami (File/Collect for Output)

Shame - 2 Lipiec 2015, 18:09

Trurl napisał/a:

Żeby nie pogubić fontów, zapisuj pracę razem z fontami (File/Collect for Output)

Dodatkowo, w X7 wróciła (? bo chyba przez jakieś wersje zniknęło, ale mogę się mylić) zapisywanie fontów razem z CDR'em używając tylko okna zapisu bezpośredniego. Collect for Output zbiera pliki dając folder w którym jest to co potrzebne do otwarcia projektu. Jednak w przypadku, kiedy robiliśmy format C:, to te fonty trzeba najpierw zainstalować. Zawieranie fontów w pliku jest szybsze i łatwiejsze ;-)

A wracając do tematu, to tak jak mówi chezare, krzywienie fontów we własnych plikach jest złym pomysłem. Nie bardzo potrafię sobie wyobrazić przypadek, gdy dłuższy tekst (np. akapit) byłby mi potrzebny pokrzywiony? Pojedyncze napisy, nagłówki, i owszem, czasem się krzywi bo wyrabia się z nimi potem różne dziwactwa, ale akapit? Nie sądzę ;-)

F-Głowy - 5 Lipiec 2015, 16:09

chezare napisał/a:

Normalnie to Edit-> Select All -> Text i ctrl+Q, ale to może być problem z jakimiś pogrupowanymi obiektami.
.

Właśnie. Pytanie czy Corel jest taki mądry że po tym poleceniu tekst w grupach nawet odnajduje.

Shame - 5 Lipiec 2015, 17:28

F-Głowy napisał/a:

Właśnie. Pytanie czy Corel jest taki mądry że po tym poleceniu tekst w grupach nawet odnajduje.

Szybciej byś to sprawdził, niż pisał tego posta, F. Nie dywaguj, tylko sprawdź, to najlepsza metoda.

chezare - 5 Lipiec 2015, 22:27

Corel raz jest mądry, raz głupi, W jednych wersjach znajduje w innych nie. Ja widziałem takie w których pogrupowanych tekstów nie znajduje. Zrób tak jak Shame radzi.

Kod:

Sub Na_krzywe()
Dim s As Shape
Dim I As Integer
Dim strona As Integer
strona = ActiveDocument.Pages.Count
For I = 1 To strona
For Each s In ActiveDocument.Pages(I).FindShapes(cdrshape)
s.CreateSelection
ActiveSelection.ConvertToCurves
Next s
Next I
End Sub

To zamieni teksty na krzywe, obojętnie czy pogrupowane, czy nie, mało tego zamieni na krzywe wszystko co się zamienić da :-)

F-Głowy - 6 Lipiec 2015, 21:13

Tak, Shame - sprawdzić. Tylko że nie zawsze piszę z miejsca z którego dysponuje Corelem. A jestem ciekawy to podaję w wąpliwość. Może innych też taka problematyka zainteresuje.

Chezarre, co za rozwiążanie. Spróbuję z tym makrem, wiesz?