Zobacz temat - Makro do zmiany właściowości czcionki na wszystkich stronach

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

Makra - Makro do zmiany właściowości czcionki na wszystkich stronach

Alekssssander - 10 Marzec 2019, 16:06
Temat postu: Makro do zmiany właściowości czcionki na wszystkich stronach

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 - 10 Marzec 2019, 20:12

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

Alekssssander - 10 Marzec 2019, 22:22

tegraf napisał/a:

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

Gdyby to było takie proste już dawno bym to zrobił :-)

Przy nagrywaniu pokazuję się komunikat:

Cytat:

Recording of this command is not supported: TextReplace

tegraf - 10 Marzec 2019, 22:50

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 - 11 Marzec 2019, 09:04

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 - 11 Marzec 2019, 09:28

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