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

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

sábado, 1 de dezembro de 2012

NOME DOS LIVROS DA BÍBLIA - PORTUGUÊS-ESPERANTO


(CONFORME A ORDEM DE APARECIMENTO)

VELHO TESTAMENTO:

Gênesis = GENEZO
êxodo = ELIRO
Levítico = LEVIDOJ
números = NOMBROJ
Deutoronômio = READMONO
Josué = JOSUO
Juízes = JUĜISTOJ
Rute = RUT
Samuel = SAMUEL
rEIS = REĜOJ
CRÔNICAS = KRONIKO
Esdras = EZRA
Neemias = NEĤEMJA
Ester = ESTER
Jó = IJOB
Salmos = LA PSALMARO
Provérbios = LA SENTENCOJ DE SALOMONO
Eclesiastes = LA PREDIKANTO
Cânticos de Salomão OU CÂNTICO DOS CÂNTICOS = ALTA KANTO DE SALOMONO
Isaías = JESAJA
Jeremias = JEREMIA
Lamentações = PLORKANTO DE JEREMIA
Ezequiel = JEĤEZKEL
Daniel = DANIEL
Oseias = HOŜEA
Joel = JOEL
Amós = AMOS
Obadias = OBADJA
Jonas = JONA
Miqueias = MIĤA
Naum = NAĤUM
Habacuque = ĤABAKUK
Sofonias = CEFANJA
Ageu = ĤAGAJ
Zacarias = ZEĤARJA
Malaquias = MALAĤI

NOVO TESTAMENTO:

Mateus = SANKTA MATEO
Marcos = SANKTA MARKO
Lucas = SANKTA LUKO
João = JOHANO
Atos = LA AGOJ DE LA APOSTOLOJ
Romanos = ROMANOJ
Coríntios = KORINTANOJ
Gálatas = GALATOJ
Efésios = EFESANOJ
Filipenses = FILIPIANOJ
Colossenses = KOLOSEANOJ
Tessalonicenses I = TESALONIKANOJ
Timóteo = TIMOTEO
Tito = TITO
Filemon = FILEMON
Hebreus = HEBREOJ
Tiago = JAKOBO
Pedro = PETRO
Judas = JUDAS
Apocalipse OU REVELAÇÃO = APOKALIPSO