|
я лично пользуюсь макросом, который как-то сделал коллега на основании моего доморощенного. Sub TranslitRusToEng()
'
' Translit Макрос
' Макрос записан 07.02.03 Sukhopleschenko, оптимизирован 22.10.03 Колайчук
Dim O(79) As String, t(79) As String, L As String, Counter As Integer
O(1) = "ье": t(1) = "ye"
O(2) = "ья": t(2) = "ya"
O(3) = "ью": t(3) = "yu"
O(4) = "ьи": t(4) = "yi"
O(5) = "ий": t(5) = "y"
O(6) = "ия": t(6) = "ia"
O(7) = "ый": t(7) = "y"
O(8) = "ъе": t(8) = "ye"
O(9) = "ъя": t(9) = "ya"
O(10) = "щ": t(10) = "shch"
O(11) = "я": t(11) = "ya"
O(12) = "ю": t(12) = "yu"
O(13) = "ее": t(13) = "eye"
O(14) = "ае": t(14) = "aye"
O(15) = "ое": t(15) = "oye"
O(16) = "ч": t(16) = "ch"
O(17) = "ы": t(17) = "y"
O(18) = "а": t(18) = "a"
O(19) = "б": t(19) = "b"
O(20) = "ц": t(20) = "ts"
O(21) = "ц": t(21) = "ts"
O(22) = "д": t(22) = "d"
O(23) = "э": t(23) = "e"
O(24) = "ф": t(24) = "f"
O(25) = "г": t(25) = "g"
O(26) = "и": t(26) = "i"
O(27) = "ж": t(27) = "zh"
O(28) = "к": t(28) = "k"
O(29) = "л": t(29) = "l"
O(30) = "м": t(30) = "m"
O(31) = "н": t(31) = "n"
O(32) = "о": t(32) = "o"
O(33) = "п": t(33) = "p"
O(34) = "р": t(34) = "r"
O(35) = "с": t(35) = "s"
O(36) = "т": t(36) = "t"
O(37) = "у": t(37) = "u"
O(38) = "в": t(38) = "v"
O(39) = "й": t(39) = "y"
O(40) = "з": t(40) = "z"
O(41) = "Т": t(41) = "T"
O(42) = "Е": t(42) = "E"
O(43) = "Ю": t(43) = "Yu"
O(44) = "Щ": t(44) = "Shch"
O(45) = "Я": t(45) = "Ya"
O(46) = "Х": t(46) = "Kh"
O(47) = "Ш": t(47) = "Sh"
O(48) = "Ч": t(48) = "Ch"
O(49) = "А": t(49) = "A"
O(50) = "Б": t(50) = "B"
O(51) = "Ц": t(51) = "Ts"
O(52) = "Д": t(52) = "D"
O(53) = "Э": t(53) = "E"
O(54) = "Ф": t(54) = "F"
O(55) = "Г": t(55) = "G"
O(56) = "И": t(56) = "I"
O(57) = "Ж": t(57) = "Zh"
O(58) = "К": t(58) = "K"
O(59) = "Л": t(59) = "L"
O(60) = "М": t(60) = "M"
O(61) = "Н": t(61) = "N"
O(62) = "О": t(62) = "O"
O(63) = "П": t(63) = "P"
O(64) = "Р": t(64) = "R"
O(65) = "С": t(65) = "S"
O(66) = "У": t(66) = "U"
O(67) = "В": t(67) = "V"
O(68) = "Й": t(68) = "Y"
O(69) = "З": t(69) = "Z"
O(70) = "ь": t(70) = ""
O(71) = "ъё": t(71) = "yo"
O(72) = "ъ": t(72) = "y"
O(73) = "х": t(73) = "kh"
O(74) = "е": t(74) = "e"
O(75) = "ш": t(75) = "sh"
O(76) = "Т": t(76) = "T"
O(77) = "Ё": t(77) = "E"
O(78) = "ё": t(78) = "е"
O(79) = "Ь": t(79) = "" Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting Counter = 1
Do Until Counter = 79
L = O(Counter)
With Selection.Find
.Text = L
L = t(Counter)
.Replacement.Text = L
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = True
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
Selection.Find.Execute Replace:=wdReplaceAll
End With
Counter = Counter + 1
Loop End Sub скопируйте слова между SUB (включительно), создайте новый пустой макрос (tools > macros > record new macro: дать любое название новому макросу и нажать на стоп записи) и потом в редакторе VBA вставить вышеприведенный текст макроса (только при этом нужно переключиться на русский язык и в тырнет эксплорере, и в ворде, а то вместо русских буков получатся крякозяблики или как их еще там....)
Макрос можно оптимизировать, чтобы фамилии тима Шитов и Вагина автоматически приобретали более благозвучный вид :)))
успехов
ЗЫ
или Вам таки была нужна таблица транслитерации...
| 