Corel FORUM

[TheMan258]

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]

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]