That's all very well, but all you've done is add some Style names. You haven't told Word anything about what attributes this Styles have (e.g. italic, bold, superscript, subscript, etc.).

The wildcard Find expression in the macro I posted shows you how to exclude Greek and operator content. All you need do is modify that to find just the Greek content.

__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]

Unable to find Greek characters.

But I did the attributes as below for others also.

Set cBI = ActiveDocument.Styles.Add("cBI", Type:=WdStyleType.wdStyleTypeCharacter)
With cBI.Font
.Bold = True
.Italic = True
.Subscript = False
.Superscript = False
.ColorIndex = wdBrightGreen
End With


and I tried for a single greek but not find and change.

Selection.Find.Replacement.Font.Name = "Times New Roman"
With Selection.Find
.Text = ChrW(61508)
.Replacement.Text = "\Delta;"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = True
.MatchWholeWord = False
.MatchWildcards = True
.MatchSoundsLike = False
.MatchAllWordForms = False
.Execute Replace:=wdReplaceAll
End With