[PowerPoint][VBA] Convert Thai number to western and convert western number to Thai.

NumberConverterPPT.vba

Sub W2TH()
'สำหรับแปลงเลขฮินดูอารบิกเป็นเลขไทย
Dim i, s
Dim EngChar
Dim ThaChar
Dim EngArray As Variant
Dim ThaArray As Variant

EngChar = "1 2 3 4 5 6 7 8 9 0"
EngArray = Split(EngChar, " ")
ThaChar = "๑ ๒ ๓ ๔ ๕ ๖ ๗ ๘ ๙ ๐"
ThaArray = Split(ThaChar, " ")

s = ActiveWindow.Selection.TextRange.Text

For i = LBound(EngArray) To UBound(EngArray)
    s = Replace(s, EngArray(i), ThaArray(i))
Next i
With ActiveWindow.Selection.TextRange
    .Text = s
End With

End Sub

Sub TH2W()
'สำหรับแปลงเลขไทยเป็นเลขฮินดูอารบิก
Dim i, s
Dim EngChar
Dim ThaChar
Dim EngArray As Variant
Dim ThaArray As Variant

EngChar = "1 2 3 4 5 6 7 8 9 0"
EngArray = Split(EngChar, " ")
ThaChar = "๑ ๒ ๓ ๔ ๕ ๖ ๗ ๘ ๙ ๐"
ThaArray = Split(ThaChar, " ")

s = ActiveWindow.Selection.TextRange.Text

For i = LBound(ThaArray) To UBound(ThaArray)
    s = Replace(s, ThaArray(i), EngArray(i))
Next i
With ActiveWindow.Selection.TextRange
    .Text = s
End With

End Sub