|
Zamiana zaznaczonego tekstu |
| Autor |
Wiadomość |
TheMan258 
Początkujący
TheMan258
Wersja CorelDRAW: x5
Wiek: 33
Dołączył: 22 Lut 2021
Posty: 14
Skąd: Kraków
|
  Wysłany: 21 Styczeń 2022, 00:00 Zamiana zaznaczonego tekstu
|
|
|
Witam,
potrzebuję pomocy w makrze do zamiany tekstu mianowicie chciałbym aby tylko zaznaczony tekst zmieniał się na ten z inputboxa (txtZamien). To makro niżej jest dobre bo zmienia tylko wybrane słowo jednak działa na całej stronie.
| Kod: | txtZnajdz = InputBox("Tekst1:", "Zmiana")
txtZamien = InputBox("Tekst2:", "Zmiana")
For Each d In Documents
For Each p In d.Pages
p.TextReplace txtZnajdz, txtZamien, True, False
Next p
Next d |
Ewentualnie tutaj co należy wpisać aby makro nie zastępowało całej ramki z tekstem tylko zmieniało wybrane słowo.
| Kod: | txtZnajdz = "(@type = 'text:artistic' or @type = 'text:paragraph')"
Set sr = ActiveSelection.Shapes.FindShapes(Query:=txtZnajdz)
For Each s In sr
s.text.Story.Characters.All = txtZamien
Next s |
Za wszelką pomoc z góry dziękuję  |
|
 |
|
 |
Martin Nez
Doradca
Grafik?
Wersja CorelDRAW: 2019
Pomógł: 14 razy
Dołączył: 29 Sty 2011
Posty: 115
Skąd: Czmoń
|
| Wysłany: 21 Styczeń 2022, 20:56
|
|
|
Musisz użyć funkcji Text.Range(). 3 linijki z kodu mi nic nie mówią, więc sam spróbuj to zaimplementować do kodu. ;)
Pozdr,
MN |
|
 |
|
|
TheMan258
Początkujący
TheMan258
Wersja CorelDRAW: x5
Wiek: 33
Dołączył: 22 Lut 2021
Posty: 14
Skąd: Kraków
|
| Wysłany: 21 Styczeń 2022, 22:34
|
|
|
| Martin Nez napisał/a: | Musisz użyć funkcji Text.Range(). 3 linijki z kodu mi nic nie mówią, więc sam spróbuj to zaimplementować do kodu. ;)
Pozdr,
MN |
Ogólnie to kod tak wygląda, nic więcej w nim nie ma. Wpisując w kod text range wyświetla się niestety błąd  . |
|
|
|
|
|
|
|
FAQ
Szukaj
Użytkownicy
Grupy
Rejestracja
Zaloguj
Download
