Type Thai using VBA

Hear you can insert Thai characters in a Word document as you feel like keyboard touch. As VBA code used here is quite simple, you can readily alter to another language, for instance العربية （Arabic） and മലയാളം （Malayalam） languages.

Argorithm and Alteration

Fig.1 shows an example of Thai keyboard. Character number, Thai character, and corresponding Unicode number are listed in Table 1. The fifth column in the table is location of keyboard character.

Algorithm is quite simple, i.e. if you type "d", then ChrW(3585) ( ก : Ko-Kai 1^st Thai character ) turns out at the selected position.

In practical use, phrases are touch-typed in "InputBox" and push Enter key.

　　　−　to alter to another language　−

Simply change variables "a" and "w", that's everything OK.

　 　−　for example　−

If let "a" and "w" variables as follow, you can type Malayalam language.

　　a = 3330
    w = " x =  D E F R G T ~   Z S W   A Q k K i I U" & _
        " ; + p P { : * @ ` C l L o O v  h H y Y c / j J" & _
        " n N B b M < m u     e f r g t ^   z s w   a q d" & _
        "                   |      0 1 2 3 4 5 6 7 8 9         "

and if you change as follow

　 a = 1548
   w = " K               P    ?  x N H c Y  h f m j e @ p o [  v . s a w q : / u" & _
     " y       t r ; g l  i , n d W R A Q E S                X   "

you can type Arabic characters. Characters may be inserted left wise.

　 a = 1025
   W = " ?               F < D U L T + P B Q R K V Y J G H C N E A ` W X I O" & _
   " { S M * > Z f M d u l t ; p b q r k v y j g h c n e a @ w x i o [ s m : . z _ "

becomes Russian language.

　　==== Guide to prepare Original one ====

　　−　Create original Table　−

Using Excel application, column 3 in Table 1. is newly prepared utilizing autofill technique. and column 4 are typed as 『 = dec2hex(c2) 』.

　　−　Create kAr()　−

As it needs rather high technique to create variable "w", following description may be simpler and better.

kAr(1)="d": kAr(2)="-": kAr(3)="]": kAr(4)="8": kAr(5)="}": ……

In this case, the first line in VBA code must be changed as 『 Dim kAr(##) 』. and 『 kAr = Split(w) 』 is needed to delete. ( ## is an Unicode range: ## = 91 for Thai as shown in Table 1.)

Digression

Keyboard character may differ depending on computer machine, so if needed, Array variable "kAr()" must be changed.

『 .InsertAfter vbCr: .Start = .End - 1: .Delete 』 is only a dummy, in the absence of this description, characters do not appear unless closing InputBox.

Sub typethai()
Dim kAr                  '== Word type Thai Ver. 3.2　=====                                 ' 1
w = " d - ] 8 } S : 0 C ^ + G P E D ` R < I f 9 5 m T o @ x z / r a 4 , p i A [ ? ; L" & _
  " K l s > v V O t y k e b u 7 n 6 &      ' g c F . w  q H j h U J N    Q " & Chr(34) & _
  " # $ % ( ) _ = ~ "                                                                 '4
 kAr = Split(w)                                                                              '5
  a = 3585: x = 100: y = 100: w = "The longest name of city": kAr(0) = "di6:gmrO"            '6
myLoop:                                                                                      '7
   s = InputBox(kAr(0) & " will turns out " & w & _
           vbCr & "Cansel for stop", "Type In", kAr(0), x, y)                                '9
      w = "same as befor": kAr(0) = s:   If s = "" Then End                                 '10
 
 
     For i = 1 To UBound(kAr)                                                               '13
         s = Replace(s, kAr(i), ChrW(a + i - 1))                                            '14
     Next                                                                                   '15
   With Selection                                                                           '16
     .InsertAfter Text:=s: .InsertAfter vbCr: .Start = .End - 1: .Delete                    '17
   End With                                                                                 '18
  GoTo myLoop                                                                               '19
End Sub

このサイトで扱った項目