Zobacz temat - Zamiana zaznaczonego tekstu

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

Makra - Zamiana zaznaczonego tekstu

TheMan258 - 21 Styczeń 2022, 00:00
Temat postu: 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 - 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 - 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 :hm