With Selection.Find
        .Text = "r-"
        .Replacement.Text = "-r"
    End With
Selection.Find.Execute Replace:=wdReplaceAll
   With Selection.Find
        .Text = "r/"
        .Replacement.Text = "/r"
   End With
Selection.Find.Execute Replace:=wdReplaceAll
   With Selection.Find
        .Text = "r_"
        .Replacement.Text = "_r"
   End With
Selection.Find.Execute Replace:=wdReplaceAll
   With Selection.Find
        .Text = "r\"
    .Replacement.Text = "\r"
   End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
   .Text = "r5"
   .Replacement.Text = "5r"
   End With
Selection.Find.Execute Replace:=wdReplaceAll
   With Selection.Find
   .Text = "ng-"
.Replacement.Text = "-ng"
Selection.Find.Execute Replace:=wdReplaceAll
End With
   With Selection.Find
   .Text = "ng/"
.Replacement.Text = "/ng"
End With
Selection.Find.Execute Replace:=wdReplaceAll
   With Selection.Find
   .Text = "ng_"
.Replacement.Text = "_ng"
End With
Selection.Find.Execute Replace:=wdReplaceAll
   With Selection.Find
   .Text = "ng\"
.Replacement.Text = "\ng"
End With
Selection.Find.Execute Replace:=wdReplaceAll
   With Selection.Find
   .Text = "ng5"
.Replacement.Text = "5ng"
End With
Selection.Find.Execute Replace:=wdReplaceAll

   With Selection.Find
   .Text = "n-"
   .Replacement.Text = "-n"
   End With
Selection.Find.Execute Replace:=wdReplaceAll
   With Selection.Find
   .Text = "n/"
   .Replacement.Text = "/n"
   End With
Selection.Find.Execute Replace:=wdReplaceAll
   With Selection.Find
   .Text = "n_"
   .Replacement.Text = "_n"
   End With
Selection.Find.Execute Replace:=wdReplaceAll
   With Selection.Find
   .Text = "n\"
   .Replacement.Text = "\n"
   End With
Selection.Find.Execute Replace:=wdReplaceAll
   With Selection.Find
   .Text = "n1"
   .Replacement.Text = "5n"
   End With
Selection.Find.Execute Replace:=wdReplaceAll

   With Selection.Find
   .Text = "ai-"
   .Replacement.Text = "a-i"
Selection.Find.Execute Replace:=wdReplaceAll
   End With
   With Selection.Find
   .Text = "ai/"
   .Replacement.Text = "a/i"
   End With
Selection.Find.Execute Replace:=wdReplaceAll
   With Selection.Find
   .Text = "ai_"
   .Replacement.Text = "a_i"
   End With
Selection.Find.Execute Replace:=wdReplaceAll
   With Selection.Find
   .Text = "ai\"
   .Replacement.Text = "a\i"
   End With
Selection.Find.Execute Replace:=wdReplaceAll
   With Selection.Find
   .Text = "ai5"
   .Replacement.Text = "a5i"
   End With
Selection.Find.Execute Replace:=wdReplaceAll

   With Selection.Find
   .Text = "ei-"
   .Replacement.Text = "e-i"
   End With
Selection.Find.Execute Replace:=wdReplaceAll
   With Selection.Find
   .Text = "ei/"
   .Replacement.Text = "e/i"
   End With
Selection.Find.Execute Replace:=wdReplaceAll
   With Selection.Find
   .Text = "ei_"
   .Replacement.Text = "e_i"
   End With
Selection.Find.Execute Replace:=wdReplaceAll
   With Selection.Find
   .Text = "ei\"
   .Replacement.Text = "e\i"
   End With
Selection.Find.Execute Replace:=wdReplaceAll
   With Selection.Find
   .Text = "ei5"
   .Replacement.Text = "e5i"
   End With
Selection.Find.Execute Replace:=wdReplaceAll

   With Selection.Find
   .Text = "ao-"
   .Replacement.Text = "a-o"
   End With
Selection.Find.Execute Replace:=wdReplaceAll
   With Selection.Find
   .Text = "ao/"
   .Replacement.Text = "a/o"
   End With
Selection.Find.Execute Replace:=wdReplaceAll
   With Selection.Find
   .Text = "ao_"
   .Replacement.Text = "a_o"
   End With
Selection.Find.Execute Replace:=wdReplaceAll
   With Selection.Find
   .Text = "ao\"
   .Replacement.Text = "a\o"
   End With
Selection.Find.Execute Replace:=wdReplaceAll
   With Selection.Find
   .Text = "ao5"
   .Replacement.Text = "a5o"
   End With
Selection.Find.Execute Replace:=wdReplaceAll

   With Selection.Find
   .Text = "ou-"
   .Replacement.Text = "o-u"
   End With
Selection.Find.Execute Replace:=wdReplaceAll
   With Selection.Find
   .Text = "ou/"
   .Replacement.Text = "o/u"
   End With
Selection.Find.Execute Replace:=wdReplaceAll
   With Selection.Find
   .Text = "ou_"
   .Replacement.Text = "o_u"
   End With
Selection.Find.Execute Replace:=wdReplaceAll
   With Selection.Find
   .Text = "ou\"
   .Replacement.Text = "o\u"
   End With
Selection.Find.Execute Replace:=wdReplaceAll
   With Selection.Find
   .Text = "ou5"
   .Replacement.Text = "o5u"
   End With
Selection.Find.Execute Replace:=wdReplaceAll
   
    With Selection.Find
        .Text = "uu-"
        .Replacement.Text = "v-"
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "uu/"
        .Replacement.Text = "v/"
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "uu_"
        .Replacement.Text = "v_"
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "uu\"
        .Replacement.Text = "v\"
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "uu"
        .Replacement.Text = ChrW(&HFC)
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    With Selection.Find
        .Text = "o-"
        .Replacement.Text = ChrW(&H14D)
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "o/"
        .Replacement.Text = ChrW(&HF3)
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "o_"
        .Replacement.Text = ChrW(&H1D2)
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "o\"
        .Replacement.Text = ChrW(&HF2)
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "e-"
        .Replacement.Text = ChrW(&H113)
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "e/"
        .Replacement.Text = ChrW(&HE9)
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "e_"
        .Replacement.Text = ChrW(&H11B)
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "e\"
        .Replacement.Text = ChrW(&HE8)
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "i-"
        .Replacement.Text = ChrW(&H12B)
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "i/"
        .Replacement.Text = ChrW(&HED)
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "i_"
        .Replacement.Text = ChrW(&H1D0)
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "i\"
        .Replacement.Text = ChrW(&HEC)
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "u-"
        .Replacement.Text = ChrW(&H16B)
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "u/"
        .Replacement.Text = ChrW(&HFA)
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "u_"
        .Replacement.Text = ChrW(&H1D4)
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "u\"
        .Replacement.Text = ChrW(&HF9)
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "v-"
        .Replacement.Text = ChrW(&H1D6)
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "v/"
        .Replacement.Text = ChrW(&H1D8)
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "v_"
        .Replacement.Text = ChrW(&H1DA)
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "v\"
        .Replacement.Text = ChrW(&H1DC)
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    With Selection.Find
        .Text = "a-"
        .Replacement.Text = ChrW(&H101)
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "a/"
        .Replacement.Text = ChrW(&HE1)
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "a_"
        .Replacement.Text = ChrW(&H1CE)
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "a\"
        .Replacement.Text = ChrW(&HE0)
    End With
    Selection.Find.Execute Replace:=wdReplaceAll