CorelDRAW Community
CorelDRAW Community
  • Site
  • User
  • Site
  • Search
  • User
Wikis
Wikis
F.A.Q. Find and Replace word containing € simbol
  • Wikis
  • Tags
  • More
  • Cancel
  • New
  • +F.A.Q.
  • +cant erase
  • character combination fi (lower case f and i together) converts to a question mark
  • Community Challenges Guidelines
  • coreldrw x8 appcresh error
  • Creating a Cosmo
  • Error In Corel Draw Gaphics Suite X5
  • Find and Replace word containing € simbol
  • import issue
  • Menu Bar using CorelDraw X4
  • Moving CDR X4 GS to new PC
  • Thumbnailing Pages
  • +Thumbnails Not Showing in Windows Explorer After Installing CDGS X6/X7/X8/Versions 2017 & 2018
  • Tope Khama
  • Transparency tool on Corel Draw 7 Student and Home Edition??
  • +Unwanted Duplicates when Moving Objects
  • USING PHOTOSHOP AS A BITMAP EDITOR FOR COREL DRAW
  • +VideoStudio Pro X6 supports .cdr or .psd file directly?
  • What version is my CDR file?
  • Why are bitmaps not overprinting?
  • Why are new text objects vertical?
  • +Why are some of my menu items disabled?
  • Why does EPS export add one pixel when opened in PhotoPaint
  • Why doesn't my white (glow) dropshadow display?
  • Why is my hole filled after combining?

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.
  • Find and Replace word containing € simbol
  • Share
  • History
  • More
  • Cancel
Related
Recommended

© Corel Corporation. All rights reserved. The content herein is in the form of a personal web log ("Blog") or forum posting. As such, the views expressed in this site are those of the participants and do not necessarily reflect the views of Corel Corporation, or its affiliates and their respective officers, directors, employees and agents. Terms of Use / Privacy​ ​/ ​Cookies / Terms and Conditions / User Guidelines.