https://www.geocities.ws/click2speak/unicode/chars_az.html
Sub LatinToCyrillic()
Dim r As Range
For Each r In ActiveDocument.StoryRanges
' Kiçik hərflərin dəyişdirilməsi
r.Text = Replace(r.Text, "a", ChrW(&H430)) ' а
r.Text = Replace(r.Text, "b", ChrW(&H431)) ' б
r.Text = Replace(r.Text, "c", ChrW(&H447)) ' ч
r.Text = Replace(r.Text, "ç", ChrW(&H4B9)) ' ҹ
r.Text = Replace(r.Text, "d", ChrW(&H434)) ' д
r.Text = Replace(r.Text, "e", ChrW(&H435)) ' е
r.Text = Replace(r.Text, "ə", ChrW(&H4D9)) ' ә
r.Text = Replace(r.Text, "f", ChrW(&H444)) ' ф
r.Text = Replace(r.Text, "g", ChrW(&H49D)) ' қ
r.Text = Replace(r.Text, ChrW(&H11F), ChrW(&H493)) ' ғ
r.Text = Replace(r.Text, "h", ChrW(&H4BB)) ' һ
r.Text = Replace(r.Text, "x", ChrW(&H445)) ' х
r.Text = Replace(r.Text, ChrW(&H069), ChrW(&H438)) ' и
r.Text = Replace(r.Text, ChrW(&H131), ChrW(&H44B)) ' ы
r.Text = Replace(r.Text, "j", ChrW(&H436)) ' ж
r.Text = Replace(r.Text, "k", ChrW(&H43A)) ' к
r.Text = Replace(r.Text, "q", ChrW(&H433)) ' г
r.Text = Replace(r.Text, "l", ChrW(&H43B)) ' л
r.Text = Replace(r.Text, "m", ChrW(&H43C)) ' м
r.Text = Replace(r.Text, "n", ChrW(&H43D)) ' н
r.Text = Replace(r.Text, "o", ChrW(&H43E)) ' о
r.Text = Replace(r.Text, "ö", ChrW(&H4E9)) ' ө
r.Text = Replace(r.Text, "p", ChrW(&H43F)) ' п
r.Text = Replace(r.Text, "r", ChrW(&H440)) ' р
r.Text = Replace(r.Text, "s", ChrW(&H441)) ' с
r.Text = Replace(r.Text, ChrW(&H15F), ChrW(&H448)) ' ш
r.Text = Replace(r.Text, "t", ChrW(&H442)) ' т
r.Text = Replace(r.Text, "u", ChrW(&H443)) ' у
r.Text = Replace(r.Text, "ü", ChrW(&H4AF)) ' ү
r.Text = Replace(r.Text, "v", ChrW(&H432)) ' в
r.Text = Replace(r.Text, "y", ChrW(&H439)) ' й
r.Text = Replace(r.Text, "z", ChrW(&H437)) ' з
' Böyük hərflərin dəyişdirilməsi
r.Text = Replace(r.Text, "A", ChrW(&H410)) ' А
r.Text = Replace(r.Text, "B", ChrW(&H411)) ' Б
r.Text = Replace(r.Text, "C", ChrW(&H427)) ' Ч
r.Text = Replace(r.Text, "Ç", ChrW(&H4B8)) ' Ҹ
r.Text = Replace(r.Text, "D", ChrW(&H414)) ' Д
r.Text = Replace(r.Text, "E", ChrW(&H415)) ' Е
r.Text = Replace(r.Text, "Ə", ChrW(&H4D8)) ' Ә
r.Text = Replace(r.Text, "F", ChrW(&H424)) ' Ф
r.Text = Replace(r.Text, "Q", ChrW(&H413)) ' Г
r.Text = Replace(r.Text, ChrW(&H11E), ChrW(&H492)) ' Ғ
r.Text = Replace(r.Text, "H", ChrW(&H4BA)) ' Һ
r.Text = Replace(r.Text, "X", ChrW(&H425)) ' Х
r.Text = Replace(r.Text, ChrW(&H049), ChrW(&H42B)) ' Ы
r.Text = Replace(r.Text, ChrW(&H130), ChrW(&H418)) ' И
r.Text = Replace(r.Text, "J", ChrW(&H416)) ' Ж
r.Text = Replace(r.Text, "K", ChrW(&H41A)) ' К
r.Text = Replace(r.Text, "G", ChrW(&H49C)) ' Қ
r.Text = Replace(r.Text, "L", ChrW(&H41B)) ' Л
r.Text = Replace(r.Text, "M", ChrW(&H41C)) ' М
r.Text = Replace(r.Text, "N", ChrW(&H41D)) ' Н
r.Text = Replace(r.Text, "O", ChrW(&H41E)) ' О
r.Text = Replace(r.Text, "Ö", ChrW(&H4E8)) ' Ө
r.Text = Replace(r.Text, "P", ChrW(&H41F)) ' П
r.Text = Replace(r.Text, "R", ChrW(&H420)) ' Р
r.Text = Replace(r.Text, "S", ChrW(&H421)) ' С
r.Text = Replace(r.Text, ChrW(&H15E), ChrW(&H428)) ' Ш
r.Text = Replace(r.Text, "T", ChrW(&H422)) ' Т
r.Text = Replace(r.Text, "U", ChrW(&H423)) ' У
r.Text = Replace(r.Text, "Ü", ChrW(&H4AE)) ' Ү
r.Text = Replace(r.Text, "V", ChrW(&H412)) ' В
r.Text = Replace(r.Text, "Y", ChrW(&H419)) ' Й
r.Text = Replace(r.Text, "Z", ChrW(&H417)) ' З
Next r
End Sub
by Rahim Süleymanov | Oct 21, 2024