Corel FORUM

[Alekssssander]

Witam !

Potrzebuje pomocy z makrem, które wyszukiwało by w danym dokumencie czcionkę "times new roman" niezależnie od jej wielkości, i zmieniało na czcionkę " Arial " wielkość 12.
I tak na każdej stronie dokumentu, aż do końca.

Wykonuje to aktualnie przez narzędzie zmiany właściwości czcionki i za każdym razem wpisuje odpowiednie parametry, aczkolwiek codziennie potrzebuję to zrobić parędziesiąt razy więc makro zapisane pod jakimś skrótem bardzo ułatwiało by pracę

Ktoś jest w stanie pomóc z takim makrem ?

Pozdrawiam !

[tegraf]

Takiego makra nie trzeba pisać, wystarczy je sobie... nagrać.

[Alekssssander]

[tegraf]

Rzeczywiście

Może to wystarczy:

Kod:

Sub Macro2()     Dim p As Page, s As Shape, sr As ShapeRange     Dim i&, f$, fNew$         f = "Times New Roman" 'your font to find     fNew = "Arial" 'new font           i = ActivePage.Index     For Each p In ActiveDocument.Pages         p.Activate         Set sr = ActivePage.Shapes.FindShapes(Query:="@type = 'text:artistic' and @com.text.story.font = '" & f & "'")         For Each s In sr             s.Text.Story.Font = fNew             s.Text.Story.Size = 12         Next s     Next p     ActiveDocument.Pages(i).Activate End Sub

Nie pisałem, znalazłem tutaj: https://community.coreldraw.com/talk/coreldraw_graphics_suite_x4/f/coreldraw-graphics-suite-x4/27217/replace-a-font-in-a-text-through-all-pages-with-a-macro/181394#181394

[Alekssssander]

Działa wszystko super ! Dzięki wielkie !

Mógłbyś jeszcze pomóc mi z taką masową zmianą koloru RGB na CMYK?

Chodzi o zmianę całej palety na inną paletę wszystkich obiektów w RGB na wszystkich stronach na CMYK

[tegraf]

Kiedy ktoś ma jakiś pomysł na nowe makro, to okazuje się, że dawno zostało wymyślone.

http://corel.wodip.opole....opic.php?t=7408

http://corelvba.com/index.php?pages=conv_1