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 = "... "