#Arabic to Thai or Thai to Arabic

http://202.29.235.65/rms/index.php?p=login_ok&mod=home#1
--------------------------------------------------------------------------------------------

#Arabic to Thai or Thai to Arabic

--------------------------------------------------------------------------------------------

200710
วิธีเปลี่ยนตัวเลขใน Word จากอารบิกเป็นเลขไทย หรือ เปลี่ยนเลขไทยเป็นเลขอารบิก
https://www.digitday.com/how-to-change-thai-number-to-arabic/

--------------------------------------------------------------------------------------------

Sub arabic_to_thai()

For i = 0 To 9

With Selection.Find

.Text = Chr(48 + i)

.Replacement.Text = Chr(240 + i)

.Wrap = wdFindContinue

End With

Selection.Find.Execute Replace:=wdReplaceAll

Next

End Sub

Sub thai_to_arabic()

For i = 0 To 9

With Selection.Find

.Text = Chr(240 + i)

.Replacement.Text = Chr(48 + i)

.Wrap = wdFindContinue

End With

Selection.Find.Execute Replace:=wdReplaceAll

Next

End Sub

--------------------------------------------------------------------------------------------

0

--------------------------------------------------------------------------------------------