У меня в макросе обратная транслитерация не работает. То есть из русской буквы Щ я получаю как и надо SHH:
- Код: Выделить всё
Selection.Replace What:=ChrW(1065), Replacement:="SHH"
Но, вот, обратная процедура никак не делает Щ из SHH. Вот эта строка не работает:
- Код: Выделить всё
Selection.Replace What:="SHH", Replacement:=ChrW(1065)
И вместо слова PLOSHHAD' получаю ПЛОСННАДЬ.
Я пробовал вместо "SHH" ставить "S" & "H" & "H", но результат один и тотже. Вот переменные для транслитерации:
- Код: Выделить всё
Selection.Replace What:="A", Replacement:=ChrW(1040)
Selection.Replace What:="B", Replacement:=ChrW(1041)
Selection.Replace What:="V", Replacement:=ChrW(1042)
Selection.Replace What:="G", Replacement:=ChrW(1043)
Selection.Replace What:="D", Replacement:=ChrW(1044)
Selection.Replace What:="E", Replacement:=ChrW(1045)
Selection.Replace What:="JO", Replacement:=ChrW(1025)
Selection.Replace What:="ZH", Replacement:=ChrW(1046)
Selection.Replace What:="Z", Replacement:=ChrW(1047)
Selection.Replace What:="I", Replacement:=ChrW(1048)
Selection.Replace What:="JJ", Replacement:=ChrW(1049)
Selection.Replace What:="K", Replacement:=ChrW(1050)
Selection.Replace What:="L", Replacement:=ChrW(1051)
Selection.Replace What:="M", Replacement:=ChrW(1052)
Selection.Replace What:="N", Replacement:=ChrW(1053)
Selection.Replace What:="O", Replacement:=ChrW(1054)
Selection.Replace What:="P", Replacement:=ChrW(1055)
Selection.Replace What:="R", Replacement:=ChrW(1056)
Selection.Replace What:="S", Replacement:=ChrW(1057)
Selection.Replace What:="T", Replacement:=ChrW(1058)
Selection.Replace What:="U", Replacement:=ChrW(1059)
Selection.Replace What:="F", Replacement:=ChrW(1060)
Selection.Replace What:="KH", Replacement:=ChrW(1061)
Selection.Replace What:="C", Replacement:=ChrW(1062)
Selection.Replace What:="CH", Replacement:=ChrW(1063)
Selection.Replace What:="SH", Replacement:=ChrW(1064)
Selection.Replace What:="SHH", Replacement:=ChrW(1065)
Selection.Replace What:="''", Replacement:=ChrW(1066)
Selection.Replace What:="Y", Replacement:=ChrW(1067)
Selection.Replace What:="'", Replacement:=ChrW(1068)
Selection.Replace What:="EH", Replacement:=ChrW(1069)
Selection.Replace What:="JU", Replacement:=ChrW(1070)
Selection.Replace What:="JA", Replacement:=ChrW(1071)
Не работают KH, CH,SH, SHH, EH, JU, JA. В то же время правильно транслитерируются ZH, JO, JJ.
Помогите кто владеет информацией, пожалста. А то у меня совсем нету познаний в синтаксисе.
Спасибо.
Лёня
- Код: Выделить всё
