https://forum.vgd.ru/1688/62920/ То есть как написать русский текст латиницей по правилам польской транскрипции ru https://forum.vgd.ru/1688/62920/p1826686.htm#pp1826686 https://forum.vgd.ru/1688/62920/p1826686.htm#pp1826686 Также есть сайт, который транскрибирует русский в польский и другие языки:<br><br><script type='text/javascript'>document.write('<a href="http://www.russki-mat.net/trans2.html" rel="nofollow" target=_blank>http://www.russki-mat.net/trans2.html</a>');</script> Nata15 Sun, 14 Dec 2014 14:31:08 +0300 https://forum.vgd.ru/1688/62920/p1826683.htm#pp1826683 https://forum.vgd.ru/1688/62920/p1826683.htm#pp1826683 Я написала макрос для программы Word, который преобразует русскую кириллицу в польскую латиницу.<br><br> With Selection.Find<br> .ClearFormatting<br> .Text = "а"<br> .Replacement.Text = "a"<br> .MatchCase = False<br> .Forward = True<br> .Wrap = wdFindContinue<br> End With<br> Selection.Find.Execute Replace:=wdReplaceAll<br> With Selection.Find<br> .ClearFormatting<br> .Text = "б"<br> .Replacement.Text = "b"<br> .MatchCase = False<br> .Forward = True<br> .Wrap = wdFindContinue<br> End With<br> Selection.Find.Execute Replace:=wdReplaceAll<br> With Selection.Find<br> .ClearFormatting<br> .Text = "в"<br> .Replacement.Text = "w"<br> .MatchCase = False<br> .Forward = True<br> .Wrap = wdFindContinue<br> End With<br> Selection.Find.Execute Replace:=wdReplaceAll<br> With Selection.Find<br> .ClearFormatting<br> .Text = "г"<br> .Replacement.Text = "g"<br> .MatchCase = False<br> .Forward = True<br> .Wrap = wdFindContinue<br> End With<br> Selection.Find.Execute Replace:=wdReplaceAll<br> With Selection.Find<br> .ClearFormatting<br> .Text = "д"<br> .Replacement.Text = "d"<br> .MatchCase = False<br> .Forward = True<br> .Wrap = wdFindContinue<br> End With<br> Selection.Find.Execute Replace:=wdReplaceAll<br> With Selection.Find<br> .ClearFormatting<br> .Text = "е"<br> .Replacement.Text = "ie"<br> .MatchCase = False<br> .Forward = True<br> .Wrap = wdFindContinue<br> End With<br> Selection.Find.Execute Replace:=wdReplaceAll<br> With Selection.Find<br> .ClearFormatting<br> .Text = "ё"<br> .Replacement.Text = "jo"<br> .MatchCase = False<br> .Forward = True<br> .Wrap = wdFindContinue<br> End With<br> Selection.Find.Execute Replace:=wdReplaceAll<br> With Selection.Find<br> .ClearFormatting<br> .Text = "ж"<br> .Replacement.Text = "&#380;"<br> .MatchCase = False<br> .Forward = True<br> .Wrap = wdFindContinue<br> End With<br> Selection.Find.Execute Replace:=wdReplaceAll<br> With Selection.Find<br> .ClearFormatting<br> .Text = "з"<br> .Replacement.Text = "z"<br> .MatchCase = False<br> .Forward = True<br> .Wrap = wdFindContinue<br> End With<br> Selection.Find.Execute Replace:=wdReplaceAll<br> With Selection.Find<br> .ClearFormatting<br> .Text = "ий"<br> .Replacement.Text = "i"<br> .MatchCase = False<br> .Forward = True<br> .Wrap = wdFindContinue<br> End With<br> Selection.Find.Execute Replace:=wdReplaceAll<br> With Selection.Find<br> .ClearFormatting<br> .Text = "и"<br> .Replacement.Text = "i"<br> .MatchCase = False<br> .Forward = True<br> .Wrap = wdFindContinue<br> End With<br> Selection.Find.Execute Replace:=wdReplaceAll<br> With Selection.Find<br> .ClearFormatting<br> .Text = "й"<br> .Replacement.Text = "j"<br> .MatchCase = False<br> .Forward = True<br> .Wrap = wdFindContinue<br> End With<br> Selection.Find.Execute Replace:=wdReplaceAll<br> With Selection.Find<br> .ClearFormatting<br> .Text = "к"<br> .Replacement.Text = "k"<br> .MatchCase = False<br> .Forward = True<br> .Wrap = wdFindContinue<br> End With<br> Selection.Find.Execute Replace:=wdReplaceAll<br> With Selection.Find<br> .ClearFormatting<br> .Text = "л"<br> .Replacement.Text = "l"<br> .MatchCase = False<br> .Forward = True<br> .Wrap = wdFindContinue<br> End With<br> Selection.Find.Execute Replace:=wdReplaceAll<br> With Selection.Find<br> .ClearFormatting<br> .Text = "м"<br> .Replacement.Text = "m"<br> .MatchCase = False<br> .Forward = True<br> .Wrap = wdFindContinue<br> End With<br> Selection.Find.Execute Replace:=wdReplaceAll<br> With Selection.Find<br> .ClearFormatting<br> .Text = "н"<br> .Replacement.Text = "n"<br> .MatchCase = False<br> .Forward = True<br> .Wrap = wdFindContinue<br> End With<br> Selection.Find.Execute Replace:=wdReplaceAll<br> With Selection.Find<br> .ClearFormatting<br> .Text = "о"<br> .Replacement.Text = "o"<br> .MatchCase = False<br> .Forward = True<br> .Wrap = wdFindContinue<br> End With<br> Selection.Find.Execute Replace:=wdReplaceAll<br> With Selection.Find<br> .ClearFormatting<br> .Text = "п"<br> .Replacement.Text = "p"<br> .MatchCase = False<br> .Forward = True<br> .Wrap = wdFindContinue<br> End With<br> Selection.Find.Execute Replace:=wdReplaceAll<br> With Selection.Find<br> .ClearFormatting<br> .Text = "р"<br> .Replacement.Text = "r"<br> .MatchCase = False<br> .Forward = True<br> .Wrap = wdFindContinue<br> End With<br> Selection.Find.Execute Replace:=wdReplaceAll<br> With Selection.Find<br> .ClearFormatting<br> .Text = "с"<br> .Replacement.Text = "s"<br> .MatchCase = False<br> .Forward = True<br> .Wrap = wdFindContinue<br> End With<br> Selection.Find.Execute Replace:=wdReplaceAll<br> With Selection.Find<br> .ClearFormatting<br> .Text = "т"<br> .Replacement.Text = "t"<br> .MatchCase = False<br> .Forward = True<br> .Wrap = wdFindContinue<br> End With<br> Selection.Find.Execute Replace:=wdReplaceAll<br> With Selection.Find<br> .ClearFormatting<br> .Text = "у"<br> .Replacement.Text = "u"<br> .MatchCase = False<br> .Forward = True<br> .Wrap = wdFindContinue<br> End With<br> Selection.Find.Execute Replace:=wdReplaceAll<br> With Selection.Find<br> .ClearFormatting<br> .Text = "ф"<br> .Replacement.Text = "f"<br> .MatchCase = False<br> .Forward = True<br> .Wrap = wdFindContinue<br> End With<br> Selection.Find.Execute Replace:=wdReplaceAll<br> With Selection.Find<br> .ClearFormatting<br> .Text = "х"<br> .Replacement.Text = "ch"<br> .MatchCase = False<br> .Forward = True<br> .Wrap = wdFindContinue<br> End With<br> Selection.Find.Execute Replace:=wdReplaceAll<br> With Selection.Find<br> .ClearFormatting<br> .Text = "ц"<br> .Replacement.Text = "c"<br> .MatchCase = False<br> .Forward = True<br> .Wrap = wdFindContinue<br> End With<br> Selection.Find.Execute Replace:=wdReplaceAll<br> With Selection.Find<br> .ClearFormatting<br> .Text = "ч"<br> .Replacement.Text = "cz"<br> .MatchCase = False<br> .Forward = True<br> .Wrap = wdFindContinue<br> End With<br> Selection.Find.Execute Replace:=wdReplaceAll<br> With Selection.Find<br> .ClearFormatting<br> .Text = "ш"<br> .Replacement.Text = "sz"<br> .MatchCase = False<br> .Forward = True<br> .Wrap = wdFindContinue<br> End With<br> Selection.Find.Execute Replace:=wdReplaceAll<br> With Selection.Find<br> .ClearFormatting<br> .Text = "щ"<br> .Replacement.Text = "szcz"<br> .MatchCase = False<br> .Forward = True<br> .Wrap = wdFindContinue<br> End With<br> Selection.Find.Execute Replace:=wdReplaceAll<br> With Selection.Find<br> .ClearFormatting<br> .Text = "ъ"<br> .Replacement.Text = ""<br> .MatchCase = False<br> .Forward = True<br> .Wrap = wdFindContinue<br> End With<br> Selection.Find.Execute Replace:=wdReplaceAll<br> With Selection.Find<br> .ClearFormatting<br> .Text = "ы"<br> .Replacement.Text = "y"<br> .MatchCase = False<br> .Forward = True<br> .Wrap = wdFindContinue<br> End With<br> Selection.Find.Execute Replace:=wdReplaceAll<br> With Selection.Find<br> .ClearFormatting<br> .Text = "ь"<br> .Replacement.Text = ""<br> .MatchCase = False<br> .Forward = True<br> .Wrap = wdFindContinue<br> End With<br> Selection.Find.Execute Replace:=wdReplaceAll<br> With Selection.Find<br> .ClearFormatting<br> .Text = "э"<br> .Replacement.Text = "e"<br> .MatchCase = False<br> .Forward = True<br> .Wrap = wdFindContinue<br> End With<br> Selection.Find.Execute Replace:=wdReplaceAll<br> With Selection.Find<br> .ClearFormatting<br> .Text = "ю"<br> .Replacement.Text = "ju"<br> .MatchCase = False<br> .Forward = True<br> .Wrap = wdFindContinue<br> End With<br> Selection.Find.Execute Replace:=wdReplaceAll<br> With Selection.Find<br> .ClearFormatting<br> .Text = "я"<br> .Replacement.Text = "ja"<br> .MatchCase = False<br> .Forward = True<br> .Wrap = wdFindContinue<br> End With<br> Selection.Find.Execute Replace:=wdReplaceAll<br> Nata15 Sun, 14 Dec 2014 14:29:03 +0300