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

จากเรื่องที่แล้ว ถ้าไม่ใช้ฟอนต์ TH Sarabun IT๙ ด้วยเหตุผลที่เขียนไปแล้ว อยากเปลี่ยนตัวเลขไทยเป็นเลขอารบิกหรือเปลี่ยนเลขอารบิกเป็นเลขไทย จะทำอย่างไร

วิธีแก้ไขแบบแรก 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 และอาจจะเปลี่ยนชื่อก็ได้หากต้องการ

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

TIP: ลิบรา ไรท์เตอร์ เรียกใช้จาก Tools > Macros > Organize Macro > Libre Office Basic > My Macro > New