Corel FORUM

[F-Głowy]

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]

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]

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]

[F-Głowy]

[Shame]

[chezare]

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]

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?