Coda VB trascrive a cirilica
From LFN
Coda VB trascrive a cirilica = la coda en lingua VB (Visual Basic) de la programa per trascrive testos en leteras latina a leteras cirilica.
Version 1.1
Contenida |
[cambia]
VB de MS-Word
Trascrive testos en leteras latina a leteras cirilica pote es fada automatical si tu usa la programa MS-Word en tu computador. MS-Word ave la lingua VB (Visual Basic). En esta lingua es posable de crea un 'macro', un programa poca en la programa grande MS-Word. La programa poca simula un person vivente ci scrive per tu un testo o -en nos cosa- trascrive un testo.
Tota a su es la coda VB de la programa per trascrive testos en leteras latina a leteras cirilica. Tu pote 'copy & paste' el a tu VB-editor de MS-Word:
Tools >> Macro >> Visual Basic Editor Paste File >> Save
Pos, tu pote trascriva la testo en MS-Word par usa la programa CIRILICA, par clica:
Tools >> Macro >> Macros.. >> CIRILICA
[cambia]
Funsion
La programa trascrive la leteras latina:
TS ts TX tx CH ch ABCDEFGHIJKLMNOPQRSTUVWXYZ abcdefghijklmnopqrstuvwxyz ANTE
a la leteras cirilica:
Ц ц Ч ч X x АБКДЕФГXИЖКЛМНОПКРСТУВУШИЗ абкдефгxижклмнопкрстувушиз POS
La leteras nonLFN HKQWY es 'highlighted' par la programa per reconose fasil. Donce tu pote deside si tu vole cambia esta leteras o no.
La programa trascrive sola la leteras latina 'nonhighlighted':
Asi la alfabeta, un parola, e alga parolas highlighted. ANTE
Trascriveda a la leteras cirilica:
Аси ла алфабета, ун парола, е алга parolas highlighted. POS
Si tu vole, tu pote 'highlight' leteras ante la trascrive, per garda los contra es trascriveda. Per esemplo un lia [[Category:Leteratur]] e la coda ISBN debe es nontrascriveda.
[cambia]
Programa
Sub CIRILICA() ' ' CIRILICA Macro version 1.1 ' Macro recorded 22-04-2006 by ActiveSelective ' INFO: http://lfn.esef.net/index.php?title=Coda_VB_trascrive_a_cirilica ' ' ' leteras latina ==> leteras cirilica ' Selection.Find.ClearFormatting Selection.Find.Highlight = False Selection.Find.Replacement.ClearFormatting Selection.Find.Replacement.Highlight = True ' ' tx, tsch, tch (nonbasal non-LFN) ==> tx (highlighted) ' With Selection.Find .Text = "tx" .Replacement.Text = ChrW(1095) .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll With Selection.Find .Text = "tsch" .Replacement.Text = ChrW(1095) .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll With Selection.Find .Text = "tch" .Replacement.Text = ChrW(1095) .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' ' ts, tz (nonbasal non-LFN) ==> ts (highlighted) ' With Selection.Find .Text = "ts" .Replacement.Text = ChrW(1094) .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll With Selection.Find .Text = "tz" .Replacement.Text = ChrW(1094) .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' ' ch (nonbasal non-LFN) ==> h (highlighted) ' With Selection.Find .Text = "ch" .Replacement.Text = ChrW(1093) .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll Selection.Find.ClearFormatting Selection.Find.Highlight = False Selection.Find.Replacement.ClearFormatting ' ' 21 leteras latina (basal LFN) ==> abcdefgijlmnoprstuvxz (not highlighted) ' With Selection.Find .Text = "a" .Replacement.Text = ChrW(1072) .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll With Selection.Find .Text = "b" .Replacement.Text = ChrW(1073) .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll With Selection.Find .Text = "c" .Replacement.Text = ChrW(1082) .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll With Selection.Find .Text = "d" .Replacement.Text = ChrW(1076) .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll With Selection.Find .Text = "e" .Replacement.Text = ChrW(1077) .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll With Selection.Find .Text = "f" .Replacement.Text = ChrW(1092) .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll With Selection.Find .Text = "g" .Replacement.Text = ChrW(1075) .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll With Selection.Find .Text = "i" .Replacement.Text = ChrW(1080) .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll With Selection.Find .Text = "j" .Replacement.Text = ChrW(1078) .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll With Selection.Find .Text = "l" .Replacement.Text = ChrW(1083) .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll With Selection.Find .Text = "m" .Replacement.Text = ChrW(1084) .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll With Selection.Find .Text = "n" .Replacement.Text = ChrW(1085) .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll With Selection.Find .Text = "o" .Replacement.Text = ChrW(1086) .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll With Selection.Find .Text = "p" .Replacement.Text = ChrW(1087) .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll With Selection.Find .Text = "r" .Replacement.Text = ChrW(1088) .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll With Selection.Find .Text = "s" .Replacement.Text = ChrW(1089) .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll With Selection.Find .Text = "t" .Replacement.Text = ChrW(1090) .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll With Selection.Find .Text = "u" .Replacement.Text = ChrW(1091) .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll With Selection.Find .Text = "v" .Replacement.Text = ChrW(1074) .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll With Selection.Find .Text = "x" .Replacement.Text = ChrW(1096) .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll With Selection.Find .Text = "z" .Replacement.Text = ChrW(1079) .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll Selection.Find.Replacement.ClearFormatting Selection.Find.Replacement.Highlight = True ' ' 5 leteras latina (basal non-LFN) ==> hkqwy (highlighted) ' With Selection.Find .Text = "h" .Replacement.Text = ChrW(1093) .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll With Selection.Find .Text = "k" .Replacement.Text = ChrW(1082) .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll With Selection.Find .Text = "q" .Replacement.Text = ChrW(1082) .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll With Selection.Find .Text = "w" .Replacement.Text = ChrW(1091) .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll With Selection.Find .Text = "y" .Replacement.Text = ChrW(1080) .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll End Sub
[cambia]
Vide ance
- La table ofisial per trascrive es asi.
