เปลี่ยนเลขอารบิกเป็นเลขไทยภายใน 2 วิ
เปลี่ยนเลขอารบิกเป็นเลขไทยภายใน 2 วิ ในโปรแกรม MS WORD ง่ายๆโดยใช้ Macro
(อยากจะเขียนว่า 1 วิ แต่กลัวจะเวอร์ไป)
ซวยแล้ว! เขียนมาซะหลายหน้าแต่ดันลืมเปลี่ยนตัวเลขให้เป็นเลขไทย! ต้องมานั่งพิมพ์ตัวเลขใหม่มั้ยเนี่ยยย!
สำหรับใครก็ตามนะครับที่กำลังพิมพ์เอกสารราชการ และต้องการเปลี่ยนฟ้อนต์ตัวเลขจากอารบิกให้เป็นเลขไทย แต่เปลี่ยนไม่ได้ ฟ้อนต์ TH SarabunPSK ก็ไม่เปลี่ยนให้ หรือก็ไม่ต้องไปมัวนั่งโหลดฟ้อนต์ TH SarabunPSK๙ อยู่กลัวว่าจะต้องมานั่งพิมพ์งานแก้งานกันยาวๆ วันนี้ผมเลยมีวิธีเปลี่ยนฟ้อนต์ตัวเลขแบบง่ายๆมาฝากครับ
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
Next
End 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
ทีนี้เราก็จะได้ชุดคำสั่งดังรูป
จากนั้นกด save แล้วกดออกจากแมโคร
กดเรียกใช้แมโคร โดยเลือกเมนู arabictothai แล้วกดเรียกใช้
ทีนี้จากเลขอารบิกบนเอกสารจะเปลี่ยนเป็นเลขไทยทั้งหมด (คือทั้งเอกสารเลยนะ)
นี่แค่ตัวอย่าง
เป็นไงกันบ้างครับ ทั้งหมดนี้คือวิธีง่ายๆที่เพื่อนๆสามารถเอาไปใช้เพื่อพิมพ์งานราชการโดยที่ไม่ต้องกลัวว่าจะต้องพิมพ์เลขไทยทีละตัวอีกแล้ววว
ความคิดเห็น
แสดงความคิดเห็น