транслитерация ISO/R

[caute]

Издательство требует транслитерировать кириллицу в забытой богом системе ISO/R 9:1968. Как примерно должен выглядеть макрос транслитерации выделенного текста - с учетом заглавных букв?
(литеры ISO/R: a,b,v,g,d,e,ë,ž,z,i,j,k,l,m,n,o,p,r ,s,t,u,f,ch,c,č,š,šč,´´,y,´,ė,ju,ja )
макрорекордер не предлагать

В сети нашел упоминание о надстройке "Транслитерация" для Word, но найти ее не удалось. Кто-нить встречал такое?

[Казанский]

Может это? http://www.microsoft.com/download/en...ang=en&id=1438
Вряд ли, конечно, она будет переводить в "č,š,šč".

[caute]

попробовал эту штуку - нахожусь под сильным впечатлением: СЕМЬ последних букв, начиная со Щ, она вообще не конвертирует.
и не настраивается никак, это вообще не макрос, похоже.

[Казанский]

> СЕМЬ последних букв, начиная со Щ, она вообще не конвертирует

Дык, в американском алфавите 26 букв. В мелкософте, видимо, и не подозревают, что в других алфавитах может быть иначе

[Sasha_Smirnov]

Ну не скажите! А как же всякие там љ њ ћ ќ etc.!

Сообщение от caute

Издательство требует транслитерировать кириллицу в забытой богом системе ISO/R 9:1968.

Так а оно само что, не может? Или оно как от своего сотрудника требует?

Любопытно также, для кого этакий текст будет издан...

Сообщение от viter.alex

получаешь транслит.

А, вот уже ответили!

[viter.alex]

Пробуй. Выделяешь русский текст, запускаешь макрос и получаешь транслит.

Sub ISOR_Translit()
  Dim sLat() As Variant
  Dim sRus As String
  Dim sOut As String
  
  sLat = Array("a", "b", "v", "g", "d", "e", ChrW(235), ChrW(382), "z", "i", "j", "k", "l", "m", "n", "o", "p", "r", "s", "t", "u", "f", "ch", "c", ChrW(269), ChrW(353), ChrW(353) & ChrW(269), ChrW(180) & ChrW(180), "y", ChrW(180), ChrW(279), "ju", "ja", "A", "B", "V", "G", "D", "E", ChrW(203), ChrW(381), "Z", "I", "J", "K", "L", "M", "N", "O", "P", "R", "S", "T", "U", "F", "Ch", "C", ChrW(268), ChrW(352), ChrW(352) & ChrW(269), ChrW(180) & ChrW(180), "Y", ChrW(180), ChrW(278), "Ju", "Ja")
  sRus = "абвгдеёжзийклмнопрстуфхцчшщъыьэюяАБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯ"
  
  Dim och As Range, index As Long
  For Each och In Selection.Characters
    index = InStr(1, sRus, och.Text, vbBinaryCompare)
    If index <> 0 Then
      sOut = sOut & sLat(index - 1)
    Else
      sOut = sOut & och.Text
    End If
  Next
'  Selection.Collapse wdCollapseEnd
'  Selection.TypeParagraph
  Selection.TypeText sOut
End Sub

[caute]

класс! работает как редмондские часы в трее.
SPASIBIŠČE!
(люди тут - чистое золото, в пятый раз выручаете чайника)

Так а оно само что, не может? Или оно как от своего сотрудника требует?
Любопытно также, для кого этакий текст будет издан...

изд-во Brill - само ленится и сотрудников разленило вконец,
заставляет авторов всю чёрную работу делать и на блюдечке в пэдээфе присылать им готовенькое...
и еще стандарты времен холодной войны подсовывает.

[Sasha_Smirnov]

А! Спасибо. А читатели-то кто?

Лично мне напомнило сайты любителей общения транслитом.

[Пименов Александр]

Нормальный макрос, но при большом количестве знаков наверно лучше использовать объект Find, тогда цикл будет использоваться всегда 66 раз.........

[caute]

Сообщение от Sasha_Smirnov

А читатели-то кто?

читатели разные, кто книжки нерусские читает и кириллицу не любит.
Brill - International publishing company, based in Leiden, Boston and Tokyo, specializing in the humanities
www.brill.nl