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