Transliterating Text in

Dmitri Popov

Productivity Sauce

Dec 19, 2008 GMT
Dmitri Popov

Here is a problem: when working with an document you need to insert a few lines of text in a language that uses a non-Latin alphabet, for example Cyrillic. Of course, you can enable the Cyrillic support on your system, but it's overkill if you only need to write just a few sentences every now and then. Instead, you can use the following Basic macro to convert a selected text fragment written in the Latin alphabet into its Cyrillic version; for example "martyshka" -> "мартышка", "ogurec" -> "oгурец", and so on (this process is known as transliteration):

Sub Translit()
Dim ThisDoc As Object
Dim SearchObj As Object, nTimes As Long
Dim Args1()


If TextSnippet="" then MsgBox ("Please select a text fragment to convert!", 48, "Attention!") : End

ThisDoc=StarDesktop.loadComponentFromURL("private:factory/swriter", "_blank", 0, Args1())
Latin=Array("YA", "YA", "YA", "EH", "CH", "ZH", "SH", "SJ",_
"Ya", "Yu", "Yo", "Eh", "Ch", "Zh", "Sh", "Sj", "A","B", "V", "G", "D", "E", "Z", "I", "J", "K", "L", "M",_
"N", "P", "R", "S", "T", "U", "F", "H", "C", "``", "Y", "''",_
"ya", "yu", "yo", "eh", "ch", "zh", "sh", "sj", "a","b", "v", "g", "d", "e", "z", "i", "j", "k", "l", "m",_
"n", "p", "r", "s", "t", "u", "f", "h", "c", "`", "y", "'", "|")
Cyrillic = Array("Я", "Ю", "Ё", "Э", "Ч", "Ж", "Ш", "Щ",_
"Я", "Ю", "Ё", "Э", "Ч", "Ж", "Ш", "Щ", "А", "Б", "В", "Г", "Д", "Е", "З", "И", "Й", "К", "Л", "М",_
"Н", "П", "Р", "С", "Т", "У", "Ф", "Х", "Ц", "Ъ", "Ы", "Ь",_
"я", "ю", "ё", "э", "ч", "ж", "ш",  "щ", "а", "б", "в", "г", "д", "е", "з", "и", "й", "к", "л", "м",_
"н", "п", "р", "с", "т", "у", "ф", "х", "ц", "ъ", "ы", "ь", "")

 For I = lBound(Latin()) to uBound(Latin())
   With SearchObj
   End With
   nTimes = ThisDoc.replaceAll(SearchObj)
  Next I
End Sub

The way the macro works is rather simple. First the macro obtains the currently selected text and creates a blank Writer document. It then goes through the selected text snippet and replaces Latin letters and letter combinations with their Cyrillic equivalents specified in the Latin and Cyrillic arrays. This macro converts text from Latin to Cyrillic, but you can easily modify it to work with other alphabets.

comments powered by Disqus

Issue 27: Raspberry Pi Adventures/Special Editions

Buy this issue as a PDF

Digital Issue: Price $15.99
(incl. VAT)


njobs Europe
Njobs Netherlands Njobs Deutschland Njobs United Kingdom Njobs Italia Njobs France Njobs Espana Njobs Poland
Njobs Austria Njobs Denmark Njobs Belgium Njobs Czech Republic Njobs Mexico Njobs India Njobs Colombia