Word VB

[tp2468]

Apologies if this is in the wrong section but I thought it is something that you guys would be able to answer. I have a large word document, with serveral sections throughout the document with font colour red with the rest of the document being of font colur black.

I need to change every red character to green. I have tried recording macros but am unable to edit them to get them to do this. Any ideas or help would be appreiciated.

Regards

Tom

 

[ZVI]

Hi Tom,

Try:

Sub ReplaceFontRedToGreen()
  With ActiveDocument.Content.Find
    .Text = ""
    .Replacement.Text = ""
    .ClearFormatting
    .Replacement.ClearFormatting
    .Format = True
    .Font.Color = wdColorRed
    .Replacement.Font.Color = wdColorGreen
    .Wrap = wdFindContinue
    .Forward = True
    .Execute Replace:=wdReplaceAll
  End With
End Sub

Regards,
Vladimir

 

[tp2468]

Worked a treat, cheers. Just need to work out how to change the bullet point colours now.

 

[ZVI]

For me it replaces the bullet’s color as well.
May be the bullet’s color is not strong wdColorRed but rather wdColorDarkRed or Red composited color?
See details on this link: How to Find and Replace a Font Color