ปลี่ยนเลขอาร์บิกให้เป็นเลขไทย

�ลายคนอาจเคยเป็นแบบเดียวกันผม ด้วยงานที่เร่งรีบจะนำเสนอแต่เจ้านายสั่งให้เปลี่ยนเลขอาร์บิกให้เป็นเลยไทย โอ้ว! พระเจ้า ตัวเลขอาร์บิกใน Word ก็เยอะซะเหลือเกิน ลำพังถ้ามานั่งแก้ทีละตัวคงลำบากแน่นอน สมมติถ้ามีทั้งหมด 500 หน้า ลองคิดดูและกันว่าต้องใช้เวลาเท่าไร ด้วยเหตุผลนี้จึงต้องใช้เทคนิคแมโครใน Word ให้เป็นประโยชน์ โดยการเขียนโค้ดขึ้นเพื่อกำหนดให้เปลี่ยนตัวเลขอาร์บิกให้เป็นเลขไทย ดังนี้

http://www.youtube.com/watch?v=v3Jgop3-8Do

วิธีสร้างแมโคร-  คลิกที่ มุมมอง > แมโคร > ตั้งชื่อแมโคร > สร้าง > Save

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

หากต้องการเปลี่ยนเลขไทยให้เป็นเลขอาร์บิกดังเดิม ก็แค่เปลี่ยนโค้ด ASCII จาก Text ให้เป็น .Text = Chr(240+i) และ .Replacement ให้เป็น .Replacement.Text = Chr(48+i) ดังนี้

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

วิธีเรียกใช้แมโคร
-  เรียกใช้เครื่องมือแมโครอีกครั้ง > คลิกที่ชื่อแมโคร และคลิกเรียกใช้

ที่มา: http://thechudjane.blogspot.com/

ข้อมูลจาก zone-it.com