หลักการเปลี่ยน ตัวเลยอารบิก เป็นเลขไทยใน Microsoft Word  มีดังนี้  

เปิด Microsoft Word ขี้นมา  แลัวเลือกที่    มุมมอง–>แมโคร  ตามภาพเลย

Code  setup   ตัวเลขอารบิก เป็นเลขไทย /  ไทยเป็น อารบิก

Sub arabic_to_thai()
For i = 0 To 9
With Selection.Find
.Text = Chr(48 + i)
.Replacement.Text = ChrW(3664 + 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 = ChrW(3664 + i)
.Replacement.Text = Chr(48 + i)
.Wrap = wdFindContinue
End With
Selection.Find.Execute Replace:=wdReplaceAll
Next
End Sub