quinta-feira, 27 de dezembro de 2012

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


'[La programeto konsideras, ke la ĉapeligotaj literoj estas kun iksoj apud si]

    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "cx"
        .Replacement.Text = ChrW(265)
        .Forward = True
        .Wrap = wdFindContinue
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "gx"
        .Replacement.Text = ChrW(285)
        .Forward = True
        .Wrap = wdFindContinue
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "hx"
        .Replacement.Text = ChrW(293)
        .Forward = True
        .Wrap = wdFindContinue
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "jx"
        .Replacement.Text = ChrW(309)
        .Forward = True
        .Wrap = wdFindContinue
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "sx"
        .Replacement.Text = ChrW(349)
        .Forward = True
        .Wrap = wdFindContinue
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "ux"
        .Replacement.Text = ChrW(365)
        .Forward = True
        .Wrap = wdFindContinue
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

Nenhum comentário: