เปลี่ยนเลขอารบิกเป็นเลขไทย ด้วย VBA

เปิด Word ขึ้นมา คลิกที่ขวาที่ Home เลือก Customize the Ribbon ตามภาพ 1-2

เมนูด้านขวา ค้นหา Devoloper และติ๊กถูก ตามภาพเลข 3-4 ตามลำดับ

คลิ๊กเมนู Developer แล้วเลือก Macros และเลือกที่ Create

คัดลอกโค้ด ด้านล่างนี้ และวางในช่องตามภาพ 7-8

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

วิธีใช้งาน ให้เลือกตามภาพ 1 และ 2 ตามลำดับ

เพื่อแปลงเลขอารบิกเป็นเลขไทย (arabic_to_thai) หรือเลขไทยเป็นอารบิก (thai_to_arabic)