Ðóññêî-ïîëüñêèé òðàíñêðèïòîð / òðàíñëèò

ß íàïèñàëà ìàêðîñ äëÿ ïðîãðàììû Word, êîòîðûé ïðåîáðàçóåò ðóññêóþ êèðèëëèöó â ïîëüñêóþ ëàòèíèöó.

With Selection.Find
.ClearFormatting
.Text = "à"
.Replacement.Text = "a"
.MatchCase = False
.Forward = True
.Wrap = wdFindContinue
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.ClearFormatting
.Text = "á"
.Replacement.Text = "b"
.MatchCase = False
.Forward = True
.Wrap = wdFindContinue
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.ClearFormatting
.Text = "â"
.Replacement.Text = "w"
.MatchCase = False
.Forward = True
.Wrap = wdFindContinue
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.ClearFormatting
.Text = "ã"
.Replacement.Text = "g"
.MatchCase = False
.Forward = True
.Wrap = wdFindContinue
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.ClearFormatting
.Text = "ä"
.Replacement.Text = "d"
.MatchCase = False
.Forward = True
.Wrap = wdFindContinue
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.ClearFormatting
.Text = "å"
.Replacement.Text = "ie"
.MatchCase = False
.Forward = True
.Wrap = wdFindContinue
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.ClearFormatting
.Text = "¸"
.Replacement.Text = "jo"
.MatchCase = False
.Forward = True
.Wrap = wdFindContinue
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.ClearFormatting
.Text = "æ"
.Replacement.Text = "ż"
.MatchCase = False
.Forward = True
.Wrap = wdFindContinue
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.ClearFormatting
.Text = "ç"
.Replacement.Text = "z"
.MatchCase = False
.Forward = True
.Wrap = wdFindContinue
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.ClearFormatting
.Text = "èé"
.Replacement.Text = "i"
.MatchCase = False
.Forward = True
.Wrap = wdFindContinue
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.ClearFormatting
.Text = "è"
.Replacement.Text = "i"
.MatchCase = False
.Forward = True
.Wrap = wdFindContinue
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.ClearFormatting
.Text = "é"
.Replacement.Text = "j"
.MatchCase = False
.Forward = True
.Wrap = wdFindContinue
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.ClearFormatting
.Text = "ê"
.Replacement.Text = "k"
.MatchCase = False
.Forward = True
.Wrap = wdFindContinue
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.ClearFormatting
.Text = "ë"
.Replacement.Text = "l"
.MatchCase = False
.Forward = True
.Wrap = wdFindContinue
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.ClearFormatting
.Text = "ì"
.Replacement.Text = "m"
.MatchCase = False
.Forward = True
.Wrap = wdFindContinue
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.ClearFormatting
.Text = "í"
.Replacement.Text = "n"
.MatchCase = False
.Forward = True
.Wrap = wdFindContinue
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.ClearFormatting
.Text = "î"
.Replacement.Text = "o"
.MatchCase = False
.Forward = True
.Wrap = wdFindContinue
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.ClearFormatting
.Text = "ï"
.Replacement.Text = "p"
.MatchCase = False
.Forward = True
.Wrap = wdFindContinue
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.ClearFormatting
.Text = "ð"
.Replacement.Text = "r"
.MatchCase = False
.Forward = True
.Wrap = wdFindContinue
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.ClearFormatting
.Text = "ñ"
.Replacement.Text = "s"
.MatchCase = False
.Forward = True
.Wrap = wdFindContinue
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.ClearFormatting
.Text = "ò"
.Replacement.Text = "t"
.MatchCase = False
.Forward = True
.Wrap = wdFindContinue
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.ClearFormatting
.Text = "ó"
.Replacement.Text = "u"
.MatchCase = False
.Forward = True
.Wrap = wdFindContinue
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.ClearFormatting
.Text = "ô"
.Replacement.Text = "f"
.MatchCase = False
.Forward = True
.Wrap = wdFindContinue
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.ClearFormatting
.Text = "õ"
.Replacement.Text = "ch"
.MatchCase = False
.Forward = True
.Wrap = wdFindContinue
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.ClearFormatting
.Text = "ö"
.Replacement.Text = "c"
.MatchCase = False
.Forward = True
.Wrap = wdFindContinue
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.ClearFormatting
.Text = "÷"
.Replacement.Text = "cz"
.MatchCase = False
.Forward = True
.Wrap = wdFindContinue
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.ClearFormatting
.Text = "ø"
.Replacement.Text = "sz"
.MatchCase = False
.Forward = True
.Wrap = wdFindContinue
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.ClearFormatting
.Text = "ù"
.Replacement.Text = "szcz"
.MatchCase = False
.Forward = True
.Wrap = wdFindContinue
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.ClearFormatting
.Text = "ú"
.Replacement.Text = ""
.MatchCase = False
.Forward = True
.Wrap = wdFindContinue
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.ClearFormatting
.Text = "û"
.Replacement.Text = "y"
.MatchCase = False
.Forward = True
.Wrap = wdFindContinue
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.ClearFormatting
.Text = "ü"
.Replacement.Text = ""
.MatchCase = False
.Forward = True
.Wrap = wdFindContinue
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.ClearFormatting
.Text = "ý"
.Replacement.Text = "e"
.MatchCase = False
.Forward = True
.Wrap = wdFindContinue
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.ClearFormatting
.Text = "þ"
.Replacement.Text = "ju"
.MatchCase = False
.Forward = True
.Wrap = wdFindContinue
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.ClearFormatting
.Text = "ÿ"
.Replacement.Text = "ja"
.MatchCase = False
.Forward = True
.Wrap = wdFindContinue
End With
Selection.Find.Execute Replace:=wdReplaceAll