You could use the following piece of code:
With Cell(1,1).Characters(Start:=6, Length:=3).Font
        .FontStyle = "Bold"
        .Color = -16776961
End With

Where Start is the first character position of the word you want to change,
and Length is the word length.

If you have some trouble with this solution send me your code and I'll help
you.

Regards!

2009/5/13 JazzyXXL <camere...@web.de>

>
> Hi,
> following problem is causing me sleepless nights:
>
> I have got a table containing a list of patents. I would like to
> search for specific terms/words in the abstracts of the patents and to
> mark them by changing their color. I do not want to change the color
> of the whole cell containing the specific word.
> I tried to record a macro but that does not seem to be possible. At
> least Excel does not want to.
>
> Can somebody help me in writing a macro for that purpose?
>
> Thanks,
> Luca
>
> Table looks like this
>
> search for:   WORD
> Nr.    Title     Abstract
> Author ....
> 1     blabla    blubblub WORD blub blub          sdfsdf
> 2     blublu    blabbla WORD bla bla bla          werwer
> 3     blibli      blimblum blae WORD blimblam   jhgkhjk
> ...
>
> >
>


-- 
Fabio L Lemos

email: flnle...@gmail.com

--~--~---------~--~----~------------~-------~--~----~
-------------------------------------------------------------------------------------
Some important links for excel users:
1. Excel and VBA Tutorials(Video and Text), Free add-ins downloads at 
http://www.excelitems.com
2. Excel tutorials at http://www.excel-macros.blogspot.com
3. Learn VBA Macros at http://www.vbamacros.blogspot.com
4. Excel Tips and Tricks at http://exceldailytip.blogspot.com
 

To post to this group, send email to excel-macros@googlegroups.com
If you find any spam message in the group, please send an email to:
Ayush Jain  @ jainayus...@gmail.com or
Ashish Jain @ 26may.1...@gmail.com
-------------------------------------------------------------------------------------
-~----------~----~----~----~------~----~------~--~---

Reply via email to