Русско-польский транскриптор / транслит

Я написала макрос для программы 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