Code: Select all
sub WalkmanChanakya905_to_Unicode
rem 15 December 2011
rem made for converting the NCERT books available on the Internet.
rem -------------------------
rem define variables
dim document as object
dim dispatcher as object
rem ----------------------------------
rem get access to the document
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
rem ----------------------------------------------------------------------
Dim I As Long
Dim array1(500) As String
array1() = Array ( "ñ" , "॰" , "Q+Z" , "QZ+" , "sas" , "sa" , "aa" , "a" , "¼Z" , "र्द्ध" , "ZZ" , "Z" , "å" , "०" , "ƒ" ,_
"१" , "„" , "२" , "…" , "३" , "†" , "४" , "‡" , "५" , "ˆ" , "६" , "‰" , "७" , "Š" , "८" , "‹" , "९" ,_
"¶+" , "फ़्" , "d+" , "क़" , "[+k" , "ख़" , "[+" , "ख़्" , "x+" , "ग़" , "T+" , "ज़्" , "t+" , "ज़" ,_
"M+" , "ड़" , "<+" , "ढ़" , "Q+" , "फ़" , ";+" , "य़" , "j+" , "ऱ" , "u+" , "ऩ" , "Ùk" , "त्त" ,_
"Ù" , "त्त्" , "Ůk" , "त्त" , "Ů" , "त्त्" , "ä" , "क्त" , "–" , "दृ" , "—" , "कृ" , "é" , "न्न" , "™" , "न्न्" ,_
"=kk" , "=k" , "f=k" , "f=" , "à" , "ह्न" , "á" , "ह्य" , "â" , "हृ" , "ã" , "ह्म" ,_
"ºz" , "ह्र" , "º" , "ह्" , "í" , "द्द" , "{k" , "क्ष" , "{" , "क्ष्" , "f=" , "त्रि" , "=k" , "त्र" , "«" , "त्र्" ,_
"Nî" , "छ्य" , "Vî" , "ट्य" , "Bî" , "ठ्य" , "Mî" , "ड्य" , "<î" , "ढ्य" , "|" , "द्य" , "K" , "ज्ञ" ,_
"}" , "द्व" , "J" , "श्र" , "Vª" , "ट्र" , "Mª" , "ड्र" , ">ª" , "ढ्र" , "Nª" , "छ्र" , "Ø" , "क्र" , "Ý" , "फ्र" ,_
"nzZ" , "र्द्र" , "æ" , "द्र" , "ç" , "प्र" , "Á" , "प्र" , "xz" , "ग्र" , "#" , "रु" , ":" , "रू" , "v‚" , "ऑ" ,_
"vks" , "ओ" , "vkS" , "औ" , "vk" , "आ" , "v" , "अ" , "b±" , "ईं" , "Ã" , "ई" , "bZ" , "ई" , "b" , "इ"_
,"mQ" , "ऊ" , "m" , "उ" , "Å" , "ऊ" , ",s" , "ऐ" , "," , "ए" , "½" , "ऋ" , "ô" , "क्क" , "d" , "क" ,_
"Dk" , "क" , "D" , "क्" , "£" , "र्f" , "[k" , "ख" , "[" , "ख्" , "x" , "ग" , "Xk" , "ग" , "X" , "ग्" ,_
"Ä" , "घ" , "?k" , "घ" , "?" , "घ्" , "³" , "ङ" , "p" , "च" , "Pk" , "च" , "P" , "च्" , "N" , "छ" ,_
"”k" , "ज" , "”" , "ज्" , "t" , "ज" , "Tk" , "ज" , "T" , "ज्" , ">" , "झ" , "÷" , "झ्" , "¥" , "ञ" ,_
"ê" , "ट्ट" , "ë" , "ट्ठ" , "V" , "ट" , "B" , "ठ" , "ì" , "ड्ड" , "ï" , "ड्ढ" , "M+" , "ड़" , "<+" , "ढ़" ,_
"M" , "ड" , "<" , "ढ" , ".k" , "ण" , "." , "ण्" , "r" , "त" , "Rk" , "त" , "R" , "त्" , "Fk" , "थ" ,_
"F" , "थ्" , "n" , "द" , "/" , "ध" , "èk" , "ध" , "è" , "ध्" , "Ë " , "ध्" , "u" , "न" , "Uk" , "न" ,_
"U" , "न्" , "iQ" , "फ" , "i" , "प" , "Ik" , "प" , "I" , "प्" , "¶" , "फ्" , "c" , "ब" , "Ck" , "ब" ,_
"C" , "ब्" , "Hk" , "भ" , "H" , "भ्" , "e" , "म" , "Ek" , "म" , "E" , "म्" , ";" , "य" , "¸" , "य्" ,_
"j" , "र" , "y" , "ल" , "Yk" , "ल" , "Y" , "ल्" , "G" , "ळ" , "oQ" , "क" , "o" , "व" , "Ok" , "व" ,_
"O" , "व्" , "'k" , "श" , "'" , "श्" , "Ük" , "श" , "Ü" , "श्" , chr(34)+"k" , "ष" , chr(34), "ष्" , "l" , "स" ,_
"Lk" , "स" , "L" , "स्" , "g" , "ह" , "È" , "ीं" , "z" , "्र" , "Ì" , "द्द" , "Í" , "ट्ट" , "Î" , "ट्ठ" ,_
"Ï" , "ड्ड" , "Ñ" , "कृ" , "Ò" , "भ" , "Ó" , "्य" , "Ô" , "ड्ढ" , "Ö" , "झ्" , "Ø" , "क्र" ,_
"¼" , "द्ध" , "Ľ" , "द्ध" , "˝" , "ऋ" , "Ř" , "क्र" , "Ń" , "कृ" , "Q" , "फ़" , "čk" , "ध" , "č" , "ध्" ,_
"Ş" , "्र" , "¨" , "ो" , "ks" , "ो" , "©" , "ौ" , "kS" , "ौ" , "‚" , "ॉ" , "kW" , "ॉ" , "W" , "ॅ" , "k" , "ा" , "h" , "ी" ,_
"q" , "ु" , "w" , "ू" , "`" , "ृ" , "s" , "े" , "¢" , "े" , "S" , "ै" , "a" , "ं" , "¡" , "ँ" ,_
"ˇ" , "ँ" , "%" , "ः" , "•" , "ऽ" , "·" , "ऽ" , "∙" , "ऽ" , "·" , "ऽ" , "+" , "़" ,_
"\" , "?" , "“" , "'" , "^" , "‘" , "*" , "’" , "Þ" , "“" , "ß" , "”" ,_
"¾" , "=" , "&" , "-" , "¿" , "{" , "À" , "}" , "A" , "।" , "Œ" , "॰" , "]" , "," , "@" , "/" ,_
" ः" , ":" , "~" , "्" , "ाे" , "ो" , "अौ" , "औ" , "अो" , "ओ" , "आॅ" , "ऑ" )
rem ----------------------------------------------------------------------
dim args2(18) as new com.sun.star.beans.PropertyValue
args2(0).Name = "SearchItem.StyleFamily"
args2(0).Value = 2
args2(1).Name = "SearchItem.CellType"
args2(1).Value = 0
args2(2).Name = "SearchItem.RowDirection"
args2(2).Value = true
args2(3).Name = "SearchItem.AllTables"
args2(3).Value = false
args2(4).Name = "SearchItem.Backward"
args2(4).Value = false
args2(5).Name = "SearchItem.Pattern"
args2(5).Value = false
args2(6).Name = "SearchItem.Content"
args2(6).Value = false
args2(7).Name = "SearchItem.AsianOptions"
args2(7).Value = true
args2(8).Name = "SearchItem.AlgorithmType"
args2(8).Value = 0
args2(9).Name = "SearchItem.SearchFlags"
args2(9).Value = 65536
args2(10).Name = "SearchItem.SearchString"
args2(11).Name = "SearchItem.ReplaceString"
args2(12).Name = "SearchItem.Locale"
args2(12).Value = 255
args2(13).Name = "SearchItem.ChangedChars"
args2(13).Value = 2
args2(14).Name = "SearchItem.DeletedChars"
args2(14).Value = 2
args2(15).Name = "SearchItem.InsertedChars"
args2(15).Value = 2
args2(16).Name = "SearchItem.TransliterateFlags"
args2(16).Value = 1024
args2(17).Name = "SearchItem.Command"
args2(17).Value = 3
args2(18).Name = "Quiet"
args2(18).Value = true
args2(8).Value = 1 ' search and replace regular expressions
args2(10).Value = "([ZzsSqwa¡`]+)Q"
args2(11).Value = "Q$1"
dispatcher.executeDispatch(document, ".uno:ExecuteSearch", "", 0, args2())
args2(8).Value = 0
For I = 0 to UBound( array1() ) - 1
args2(10).Value = array1(I)
args2(11).Value = array1(I+1)
dispatcher.executeDispatch(document, ".uno:ExecuteSearch", "", 0, args2())
I = I + 1
Next I
Rem--------------------------------------------------------------------
args2(8).Value = 1
args2(10).Value = "([खगघचजझणतथधनपबभमयलवशषस])" + "([ेैुूं]+)" + "्र"
args2(11).Value = "$1" + "्र" + "$2"
dispatcher.executeDispatch(document, ".uno:ExecuteSearch", "", 0, args2())
args2(10).Value = "([कखगघङचछजझञटठडड़ढढ़णतथदधनपफबभमयरलवशषसहक्ष])" + "ं" + "([ाेैुू]+)"
args2(11).Value = "$1" + "$2" + "ं"
dispatcher.executeDispatch(document, ".uno:ExecuteSearch", "", 0, args2())
args2(10).Value = "([ \n])" + "ा"
args2(11).Value = "$1" + "श"
dispatcher.executeDispatch(document, ".uno:ExecuteSearch", "", 0, args2())
Rem : The following statement necessary for NON-"Regular Expressions"
args2(8).Value = 0
args2(10).Value = "¯"
args2(11).Value = "f"
dispatcher.executeDispatch(document, ".uno:ExecuteSearch", "", 0, args2())
args2(10).Value = "Ł"
args2(11).Value = "र्f"
dispatcher.executeDispatch(document, ".uno:ExecuteSearch", "", 0, args2())
Rem : The following statement necessary for Regular Expressions
args2(8).Value = 1
Rem : Shifing the position of Chotii i, ie ि
args2(10).Value = "([fŻ])([कखगघङचछजझञटठडड़ढढ़णतथदधनपफबभमयरलळवशषसहक्षज्ञ])"
args2(11).Value = "$2$1"
dispatcher.executeDispatch(document, ".uno:ExecuteSearch", "", 0, args2())
args2(10).Value = "([fŻ])" + "्" + "([कखगघङचछजझञटठडड़ढढ़णतथदधनपफबभमयरलळवशषसहक्षज्ञ])"
args2(11).Value = "्" + "$2" + "$1"
dispatcher.executeDispatch(document, ".uno:ExecuteSearch", "", 0, args2())
args2(10).Value = "([fŻ])" + "्" + "([कखगघङचछजझञटठडड़ढढ़णतथदधनपफबभमयरलळवशषसहक्षज्ञ])"
args2(11).Value = "्" + "$2" + "$1"
dispatcher.executeDispatch(document, ".uno:ExecuteSearch", "", 0, args2())
Rem : The following statement necessary for NON-"Regular Expressions"
args2(8).Value = 0
args2(10).Value = "Ż"
args2(11).Value = "िं"
dispatcher.executeDispatch(document, ".uno:ExecuteSearch", "", 0, args2())
args2(10).Value = "f"
args2(11).Value = "ि"
dispatcher.executeDispatch(document, ".uno:ExecuteSearch", "", 0, args2())
args2(10).Value = "±"
args2(11).Value = "Zं"
dispatcher.executeDispatch(document, ".uno:ExecuteSearch", "", 0, args2())
rem Shifting the osition of 'Reph'
args2(8).Value = 1
args2(10).Value = "([कखगघचछजझटठडड़ढढ़णतथदधनपफबभमयरलळवशषसहक्षज्ञ])" + "([ािीुूृेैोौंँ]*)" + "Z"
args2(11).Value = "Z$1$2"
dispatcher.executeDispatch(document, ".uno:ExecuteSearch", "", 0, args2())
args2(10).Value = "([कखगघचछजझटठडड़ढढ़णतथदधनपफबभमयरलळवशषसहक्षज्ञ])" + "्" + "Z"
args2(11).Value = "Z" + "$1" + "्"
dispatcher.executeDispatch(document, ".uno:ExecuteSearch", "", 0, args2())
args2(8).Value = 0
args2(10).Value = "Z"
args2(11).Value = "र्"
dispatcher.executeDispatch(document, ".uno:ExecuteSearch", "", 0, args2())
end sub
rem Walkman-Chanakya905Normal_to_Unicode Converter MacroSource: https://groups.google.com/forum/#!topic ... HgnZ5er_gI