Best way to find/replace Unicode characters

I want to replace a number of Unicode characters (about 250) with different ones.

For example, these
ἐἑἒἓἔἕὲέἢἣἤἥἦ

with these
εεεεεεεεηηηηη

What is the best way to do it with a macro? I know this way, but it seems too repetitive...

  .Text = ChrW(&H1F10)
  .Replacement.Text = "ε"
  .MatchWholeWord = False
  .Execute Replace:=wdReplaceAll