1. เปิด MS Word ขึ้นมา แล้วไปที่เมนู View(มุมมอง) แล้วคลิ๊กที่ปุ่ม Macros(แมโคร) และเลือก View Macros(แสดงแมโคร)
2. ป้อนชื่อ Macro name(ชื่อแมโคร) เป็นชื่ออะไรก็ได้ที่สื่อให้คุณเข้าใจ เช่น arabic_to_thai และเลือก Macros in(แมโครใน) เป็น Normal.dotm (global template)(แทมเพลตส่วนกลาง) และคลิ๊กปุ่ม Create(สร้าง)
3. จะมีหน้าต่าง MS Visual Basic เปิดขึ้นมา จากนั้นให้คัดลอกฟังก์ชั่นข้างล่างนี้ลงไปในหน้าต่าง Normal - NewMacros
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
4. กดปุ่มบันทึกที่เป็นรูปแผ่นดิสค์ ทำการปิดหน้าต่างโปรแกรม MS Visual Basic เป็นอันเสร็จสิ้น
ต่อไปจะเป็นขั้นตอนการเรียกใช้งาน
1. เมื่อต้องการเรียกใช้งาน ในโปรแกรม MS Word ให้เปิดไฟล์ที่ต้องการจะแก้ไขขึ้นมา แล้วไปที่เมนู View(มุมมอง) แล้วคลิ๊กที่ปุ่ม Macros(แมโคร) และเลือก View Macros(แสดงแมโคร)
2. ในช่อง Macro name(ชื่อแมโคร) ให้เลือกรายการที่ต้องการเปลี่ยนตัวเลข ว่าต้องการเปลี่ยนจากเลขอะไรไปเป็นเลขอะไร จากนั้นคลิกที่ปุ่ม Run(เรียกใช้)
3. ตัวเลขจะเปลี่ยนตามที่ต้องการ
ขอขอบคุณ Web Site http://forum.kruthai.info/index.php?topic=8.0
และ อ.มานิตา สองสี ผู้ริเริ่มนำมาใช้