เปลี่ยนเลขอารบิค เป็นเลขไทยได้ ในพริบตา

!!!!! วันนี้ขอนอกเนื้อหานิดนึงนะครับ

หลังจากที่มีการกำหนดให้ใช้ฟอนท์แห่งชาติในการพิมพ์หนังสือราชการ หน่วยงานต่าง ๆ
ก็เริ่มดำเนินการปฏิบัติตามเรียบร้อยแล้ว โดยเราจะใช้ตัวอักษร TH SarabunPSK ในการพิมพ์
กัน นั้นก็มิใช้ปัญหาของการพิมพ์หนังสือราชการแค่เปลี่ยนแบบตัวอักษรก็จบแล้ว แต่ปัญหาของ
พวกเราก็คือ การต้องพิมพ์ตัวเลขเป็นตัวเลขไทยนี้ซิ มันไม่ค่อยชิน บางครั้งก็พิมพ์ผิด ๆ ถูก ๆ
เสียเวลามาก อีกทั้งเอกสารเก่าที่เราเคยพิมพ์และใช้มาตลอด ก็เป็นเลขอารบิค ต้องมานั่งแก้ไขที
ละตัว เสียเวลามาก แต่ต่อไปนี้ก็จะไม่ต้องกังวลใจอีกต่อไป เนื่องจากมีวิธีการทำให้เราสามารถ
เปลี่ยนตัวเลขอารบิคให้เป็นเลขไทยได้ ในพริบตา ดังนี้

ขั้นตอน
1.เปิดเอกสาร word ขึ้นมา แล้วไปที่ เมนู tool->marcro->marcros...
2.ที่ marcro name ตั้งชื่อ marcro แล้วกดปุ่ม create
3. ก๊อปปี้ code ด้านล่างนี้ไปวางในระหว่าง Sub และ Endsub
โค้ด:
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
4.จากนั้นปิดหน้าต่าง code
เวลาจะใช้งานก็เรียกใช้ marcro
ไปที่ เมนู tool->marcro->marcros... แล้ว เลือก marcro ที่จะใช้ กดปุ่ม Run ก็เรียบร้อย ตัวเลขอารบิกจะแก้เป็นเลขไทยโดยทันที

เพิ่มเติม : http://www.thaiall.com/blog/burin/1138/