Find and Replace word containing € simbol

Hi guys.

I'm little lost in here.

I know that office products allow to search a word and apply "filters" to it in order to do the research more accurate, but corel won't let me use the same filtering method.

Basically what I need to do is to erase the price from 700 products divided by 70 pages of a catalog.

It will take me 2 or 3 days to do it by hand, but I'm hoping there's another way to do it.

I've searched for a few macros but none of it does what I need.

The most similar is this:

Sub DeleteBoldWords()
Dim s As Shape, sr As ShapeRange

Set sr = ActiveSelectionRange

For Each s In sr
If s.Type = cdrTextShape Then DeleteBoldWordsSub s.Text
Next s
End Sub

Private Sub DeleteBoldWordsSub(t As Text)
Dim w As TextRange
Dim tText As Text

For Each w In t.Story.Words
If w. Then
w.Delete
Set tText = t
DeleteBoldWordsSub tText
End If
Next w
End Sub

but i've changed the "if w." to
If w. %€ Then

and it doesn't even start...

can you guys give me a hint?

Thank you very much.

Recommended