วันอังคาร 16 ตุลาคม 2561
ติดตามเว็บไซต์
หน้าแรก > รอบรู้ ICT > การเปลี่ยนเลขอาราบิกเป็นเลขไทย ใน Word 2016

การเปลี่ยนเลขอาราบิกเป็นเลขไทย ใน Word 2016

หมวดหมู่ : รอบรู้ ICT 29 พฤษภาคม 2561 เปิดอ่าน 845 ครั้ง

อยากจะเปลี่ยนตัวเลขไทยเป็นเลขอารบิกหรือเปลี่ยนเลขอารบิกเป็นเลขไทย จะทำอย่างไร

วิธีแก้ไขแบบแรก Find and Replace

ปกติ จะใช้วิธี Find and Replace คือ Find ๑ Replace 1 ทำแบบนี้ไปจนครบ 10 เลข

แต่ถ้าต้องทำตั้งแต่ ๐ — ๙ บางคนก็ว่ายุ่งยาก (แค่คลิกไม่กี่ทีเนี่ย…)

วิธีแก้ไขแบบที่สอง Macro

วิธีนี้แท้จริงแล้วก็คือแบบแรก เพียงแต่เราสร้างชุดคำสั่งให้เวิร์ดทำโดยอัตโนมัติทั้ง 10 ตัวเลข (หมายเหตุ ตัวอย่างที่ใช้จะทำด้วยไมโครซอฟท์เวิร์ด 2016)

เวิร์ด เรียกใช้จาก View > Macros ใส่ชื่ออะไรก็ได้ในช่อง macro name คลิก Create เพื่อเข้าสู่วิชวลเบสิก

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

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

คำสั่งนี้มีคำสั่งย่อย 2 คำสั่ง คือ arabictothai กับ thaitoarabic คือบรรทัดที่เขียนว่า Sub arabictothai () กับ Sub thaitoarabic() ตัวนี้จะเป็นการตั้งชื่อมาโคร

คำสั่งไม่มีอะไรมาก แค่ค้นหาเลข 0–9 แล้วแทนที่ด้วย ๐ — ๙ หรือในทางกลับกัน ค้นหาเลข ๐ — ๙ แล้วแทนที่ด้วย 0–9

การเรียกใช้

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

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

  1. คลิกเมนู Customize Quick Access Toolbar > More Commands
  2. ไดอะล็อกบล็อก Customize จะแสดงขึ้นมา เลือกตรง Choos Command From ให้เป็น macro คลิกเลือก macro ที่ต้องการแล้วกด Add ให้ไปอยู่หน้าต่างด้านขวา
  3. เปลี่ยน Icon ชื่อของปุ่ม โดยคลิกเลือก Macro ที่ต้องการแล้วกด Modify เลือก icon และอาจจะเปลี่ยนชื่อก็ได้หากต้องการ

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

—————————————————————————————–

หากใครที่เปลี่ยนแล้วออกเป็นภาษาต่างดาวลองเปลี่ยนฟังก์ชัน

Chr(240 + i)

เป็น

ChrW(3664 + i)

ดูครับ

 

ที่มา https://medium.com/office-apps/word-เปลี่ยนเลขอาราบิกเป็นเลขไทย-9fa61d183a00

เปิดอ่าน 845 ครั้ง