quinta-feira, 27 de dezembro de 2012

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

Nenhum comentário: