With Selection.Find .Text = ChrW(&H14D) .Replacement.Text = "o1" End With Selection.Find.Execute Replace:=wdReplaceAll With Selection.Find .Text = ChrW(&HF3) .Replacement.Text = "o2" End With Selection.Find.Execute Replace:=wdReplaceAll With Selection.Find .Text = ChrW(&H1D2) .Replacement.Text = "o3" End With Selection.Find.Execute Replace:=wdReplaceAll With Selection.Find .Text = ChrW(&HF2) .Replacement.Text = "o4" End With Selection.Find.Execute Replace:=wdReplaceAll With Selection.Find .Text = ChrW(&H113) .Replacement.Text = "e1" End With Selection.Find.Execute Replace:=wdReplaceAll With Selection.Find .Text = ChrW(&HE9) .Replacement.Text = "e2" End With Selection.Find.Execute Replace:=wdReplaceAll With Selection.Find .Text = ChrW(&H11B) .Replacement.Text = "e3" End With Selection.Find.Execute Replace:=wdReplaceAll With Selection.Find .Text = ChrW(&HE8) .Replacement.Text = "e4" End With Selection.Find.Execute Replace:=wdReplaceAll With Selection.Find .Text = ChrW(&H12B) .Replacement.Text = "i1" End With Selection.Find.Execute Replace:=wdReplaceAll With Selection.Find .Text = ChrW(&HED) .Replacement.Text = "i2" End With Selection.Find.Execute Replace:=wdReplaceAll With Selection.Find .Text = ChrW(&H1D0) .Replacement.Text = "i3" End With Selection.Find.Execute Replace:=wdReplaceAll With Selection.Find .Text = ChrW(&HEC) .Replacement.Text = "i4" End With Selection.Find.Execute Replace:=wdReplaceAll With Selection.Find .Text = ChrW(&H16B) .Replacement.Text = "u1" End With Selection.Find.Execute Replace:=wdReplaceAll With Selection.Find .Text = ChrW(&HFA) .Replacement.Text = "u2" End With Selection.Find.Execute Replace:=wdReplaceAll With Selection.Find .Text = ChrW(&H1D4) .Replacement.Text = "u3" End With Selection.Find.Execute Replace:=wdReplaceAll With Selection.Find .Text = ChrW(&HF9) .Replacement.Text = "u4" End With Selection.Find.Execute Replace:=wdReplaceAll With Selection.Find .Text = ChrW(&H1D6) .Replacement.Text = "v1" End With Selection.Find.Execute Replace:=wdReplaceAll With Selection.Find .Text = ChrW(&H1D8) .Replacement.Text = "v2" End With Selection.Find.Execute Replace:=wdReplaceAll With Selection.Find .Text = ChrW(&H1DA) .Replacement.Text = "v3" End With Selection.Find.Execute Replace:=wdReplaceAll With Selection.Find .Text = ChrW(&H1DC) .Replacement.Text = "v4" End With Selection.Find.Execute Replace:=wdReplaceAll With Selection.Find .Text = ChrW(&H101) .Replacement.Text = "a1" End With Selection.Find.Execute Replace:=wdReplaceAll With Selection.Find .Text = ChrW(&HE1) .Replacement.Text = "a2" End With Selection.Find.Execute Replace:=wdReplaceAll With Selection.Find .Text = ChrW(&H1CE) .Replacement.Text = "a3" End With Selection.Find.Execute Replace:=wdReplaceAll With Selection.Find .Text = ChrW(&HE0) .Replacement.Text = "a4" End With Selection.Find.Execute Replace:=wdReplaceAll With Selection.Find .Text = "v1" .Replacement.Text = "uu1" End With Selection.Find.Execute Replace:=wdReplaceAll With Selection.Find .Text = "v2" .Replacement.Text = "uu2" End With Selection.Find.Execute Replace:=wdReplaceAll With Selection.Find .Text = "v3" .Replacement.Text = "uu3" End With Selection.Find.Execute Replace:=wdReplaceAll With Selection.Find .Text = "v4" .Replacement.Text = "uu4" End With Selection.Find.Execute Replace:=wdReplaceAll With Selection.Find .Text = ChrW(&HFC) .Replacement.Text = "uu" End With Selection.Find.Execute Replace:=wdReplaceAll