Find instance of a word in a specific style and change its color

hwg · #1 02-15-2014, 06:15 PM

Thanks so much for the replies.

Is there a way I can have the macro ask the user for confirmation of each replacement?

thanks,

hwg

hwg · #2 02-15-2014, 06:22 PM

Also, I did try this using styles but couldn't get it to work. I must not have the right syntax to detect and replace on styles instead of fonts.

I tried something like this:

Code:

Dim oRng As Word.Range
Set oRng = ActiveDocument.Range
  With oRng.Find
    .Text = " in "
    .ClearFormatting
    .Style.Name = "<my style name here>"
    .Font.Size = 8
    .Replacement.ClearFormatting
    .Replacement.Style.Name = "<my replacement style name here>"
    .Execute Replace:=wdReplaceAll
  End With

It gave me the error "Object Required" on the line .Style.Name = "... "

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Deleting A blank Line that has a specific heading style , word 2010 & 2013	SteveWcg	Word	5	01-08-2014 10:37 PM
Can't change color of text in table style	ABode	Word	6	12-03-2013 07:45 AM
Find and replace multiple documents change style	BaPW	Word	0	08-14-2011 11:12 AM
How to find a specific word in Powerpoint?	Ozard80	PowerPoint	0	05-11-2011 04:42 PM
Highlight text and find next instance	DrDOS	Word	0	11-15-2010 04:02 PM