แปลงเลขอาราบิกเป็นเลขไทย ใน Microsoft Word

16 ม.ค. 2555

 

 

เปิด Word ขึ้นมา คลิกที่ View > Macros ใส่ชื่ออะไรก็ได้ในช่อง macro name คลิก Create เพื่อเข้าสู่ visual basic


ใส่คำสั่งนี้เข้าไป

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



วิธีใช้งาน และปรับแต่ง

วิธีใช้ก็ง่ายแสนง่าย ไปที่ View > Macros คลิกที่ชื่อมาโครที่ต้องการแล้วกด Run

แต่อย่างนั้นอาจจะไม่สะดวกเพราะคลิกหลายที ลองมาทำคีย์ลัดใน tools bar เรียกใช้มาโครให้ง่ายขึ้น

คลิกเมนู Customize Quick Access Toolbar > More Commands

ไดอะล็อกบล็อก Customize จะแสดงขึ้นมา เลือกตรง Choos Command From ให้เป็น macro  คลิกเลือก macro ที่ต้องการแล้วกด Add ให้ไปอยู่หน้าต่างด้านขวา


เปลี่ยน Icon ชื่อของปุ่ม โดยคลิกเลือก Macro ที่ต้องการแล้วกด Modify เลือก icon และอาจจะเปลี่ยนชื่อก็ได้หากต้องการ

เพียงเท่านี้ก็จะได้มาโครเอาไว้ใช้งาน


ขับเคลื่อนโดย Blogger.
 

Popular Posts

JHCIS Update

JHCIS

ก่อนอัพเดทเวอร์ชั่น อย่าลืม !!
  • 1. ศึกษาข้อมูลเวอร์ชั่นให้ละเอียดก่อนดาวน์โหลด
  • 2. BackUp ฐานข้อมูลทุกครั้งก่อนอัพเดทเวอร์ชั่น
  • 3. ปรับปรุงโครงสร้าง และปรับ Fix เครื่องตามคำแนะนำของทีมพัฒนา JHCIS

ค้นหา

 

© 2010 ดาวน์โหลด สสอ.รามัน