KODLINIOJ EN VBA POR MALĈAPELIGI ESPERANTAJN LITEROJN (en Word-dosiero)

'[La programeto konsideras, ke la malĉapeligotaj literoj havos iksojn apud si]

    Selection.Find.ClearFormatting

    Selection.Find.Replacement.ClearFormatting

    With Selection.Find

        .Text = ChrW(265)

        .Replacement.Text = "cx"

        .Forward = True

        .Wrap = wdFindContinue

    End With

    Selection.Find.Execute Replace:=wdReplaceAll

    Selection.Find.Replacement.ClearFormatting

    With Selection.Find

        .Text = ChrW(285)

        .Replacement.Text = "gx"

        .Forward = True

        .Wrap = wdFindContinue

    End With

    Selection.Find.Execute Replace:=wdReplaceAll

   

    Selection.Find.Replacement.ClearFormatting

    With Selection.Find

        .Text = ChrW(293)

        .Replacement.Text = "hx"

        .Forward = True

        .Wrap = wdFindContinue

    End With

    Selection.Find.Execute Replace:=wdReplaceAll

   

    Selection.Find.Replacement.ClearFormatting

    With Selection.Find

        .Text = ChrW(309)

        .Replacement.Text = "jx"

        .Forward = True

        .Wrap = wdFindContinue

    End With

    Selection.Find.Execute Replace:=wdReplaceAll

   

    Selection.Find.Replacement.ClearFormatting

    With Selection.Find

        .Text = ChrW(349)

        .Replacement.Text = "sx"

        .Forward = True

        .Wrap = wdFindContinue

    End With

    Selection.Find.Execute Replace:=wdReplaceAll

   

    Selection.Find.Replacement.ClearFormatting

    With Selection.Find

        .Text = ChrW(365)

        .Replacement.Text = "ux"

        .Forward = True

        .Wrap = wdFindContinue

    End With

    Selection.Find.Execute Replace:=wdReplaceAll