Macro แปลงเลขไทยใน MS WORD

วันนี้ สำนักส่งเสริมวิชาการและงานทะเบียน มีการจัด KM ในช่วงบ่ายๆ มี หัวข้อที่ำสำคัญ อยู่ 2 ส่วนด้วยการ คือ

1. การนำเสนอความคืบหน้า ของโปรแกรม จัดตารางสอน
    สาธิตการใช้งานโปรแกรม ระหว่างการพัฒนา เพื่อแสดงความคือหน้าของ  

2. การเขียน Macro  แปลงเลขไทยใน MS WORD
บรรยาย โดยคุณ ธรรมนูญ จูทา โดยความอนุเคราะห์ข้อมูลของ อาจารย์ มงคล แพทองคำ นะครับ

^^ สะดวกในการใช้งานดีครับ เลยเอามาเขียนแบ่งปันกันครับ
ถ้าเป็น word 2003 สามารถทำได้โดย

1. ทำการเปิดโปรแกรม word ขึ้นมาก่อน

2 . เลือกเมนู เครื่องมือ > แมโคร > Visual Basic Editor

 2.1 เมื่อได้ หน้าต่าง Visual Basic  Editor ขึ้นมา
คลิกเลือกที่ Normal (เพื่อสามารถใช้กับทุกเอกสารที่เป็น word เราได้ ) พิมพ์ชุดคำสั่งเหล่านี้ลงไปนะครับ

Sub ArabicToThai()
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
NextEnd Sub  

Sub ThaiToArabic()
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

WORK ^^ ครับ