Microsoft Office Forums - View Single Post - Find instance of a word in a specific style and change its color

gmaxey · 02-10-2014, 12:38 PM

If it is just the main text area of the document you are concerned with then this should do:

Code:

Sub ScratchMacro()
'A basic Word macro coded by Greg Maxey
Dim oRng As Word.Range
Set oRng = ActiveDocument.Range
  With oRng.Find
    .Text = "in"
    .ClearFormatting
    .Font.Name = "Courier New"
    .Replacement.ClearFormatting
    .Replacement.Font.Color = RGB(255, 119, 0)
    .Execute Replace:=wdReplaceAll
  End With
End Sub