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
Makro do zmiany właściowości czcionki na wszystkich stronach
Autor Wiadomość
Alekssssander
Początkujący


Wersja CorelDRAW: 2018
Dołączył: 13 Wrz 2018
Posty: 5
Skąd: Rzeszów
Wysłany: 10 Marzec 2019, 16:06   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 
Ekspert
tegraf


Pomógł: 74 razy
Dołączył: 21 Mar 2011
Posty: 1954
Skąd: Zielona Góra
Wysłany: 10 Marzec 2019, 20:12   

Takiego makra nie trzeba pisać, wystarczy je sobie... nagrać.
 
 
Alekssssander
Początkujący


Wersja CorelDRAW: 2018
Dołączył: 13 Wrz 2018
Posty: 5
Skąd: Rzeszów
Wysłany: 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 
Ekspert
tegraf


Pomógł: 74 razy
Dołączył: 21 Mar 2011
Posty: 1954
Skąd: Zielona Góra
Wysłany: 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
Początkujący


Wersja CorelDRAW: 2018
Dołączył: 13 Wrz 2018
Posty: 5
Skąd: Rzeszów
Wysłany: 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 
Ekspert
tegraf


Pomógł: 74 razy
Dołączył: 21 Mar 2011
Posty: 1954
Skąd: Zielona Góra
Wysłany: 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
 
 
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.08 sekundy. Zapytań do SQL: 14