Microsoft Word เปลี่ยน เลขอารบิคเป็นเลขไทย ในคลิกเดียว


ในการทำงานเอกสาร ยิ่งในการทำงานราชการ หลายคนอาจเคยเจอปัญหาการพิมพ์งานที่ต้องมีการเปลี่ยนรูปแบบของตัวเลขจาก เลขอารบิคเป็นเลขไทย เปลี่ยนแค่บางตัวอาจไม่เป็นปัญหาเท่าไหร่ แต่ถ้าต้องแก้ทั้งเอกสารละ ไม่แก้กันวุ่นเลยหรอครับ

จะดีกว่าหรือเปล่า ถ้ามีปุ่มใน microsoft office word ที่ทำให้เราสามารถเปลี่ยนตัวเลขจาก เลขอารบิคเป็นเลขไทย และ เปลี่ยนจากเลขไทยเป็นเลขอารบิค

Write Style ขอเสนอวิธีการสร้างปุ่มในการเปลี่ยนเลขอารบิคเป็นเลขไทยในคลิกเดียว ซึ่งเมื่อคลิกแล้วตัวเลขทั้งเอกสารก็จะเปลี่ยนเป็นเลขตามที่เราต้องการทันที วิธีการคือเราจะสร้าง แมโคร ขึ้นมา มีวิธีการทำดังนี้

ขั้นที่ 1

เปิดโปรแกรม microsoft office word แล้วไปที่แท็บมุมมอง มองหาแมโคร ซึ่งจะอยู่ที่ทางด้านขวาของจอ แล้วคลิกลูกศรหัวลง → เลือกแสดงแมโคร

mc-word-macro
ตำแหน่งปุ่มแมโคร

จะปรากฏหน้าต่างแมโครแบบนี้ขึ้นมาที่กลางหน้าจอ

mc-word-macro-menu
หน้าต่างแมโคร

ขั้นที่ 2

ให้ทำการตั้งชื่อแมโครตามที่เราต้องการ ให้สื่อความหมายตามที่เราเข้าใจว่า เป็นการเปลี่ยนจากเลขอารบิคเป็นเลขไทย ในที่นี้จะตั้งว่า Arabic_to_Thai จากนั้นกดปุ่มสร้างได้เลย

mc-word-create-macro-arabic-to-thai
ตั้งชื่อแมโครใหม่

เมื่อกดปุ่มสร้าง จะมีหน้าต่างแบบนี้เด้งขึ้นมา เป็นหน้าต่างการปรับแต่งแมโคร เราสามารถเขียนโค้ดแก้ไขลงไปในหน้านี้ได้

mc-word-create-macro-windows
หน้าต่างแก้ไขแมโคร

ให้ทำการลบโค้ดทั้งหมดที่มีตอนแรกทิ้งให้หมด แล้ว Coppy โค้ดด้านล่างนี้ไปวางแทนที่

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

เมื่อวางแล้วก็ให้กดกากบาทออกจากหน้านี้ได้เลย

mc-word-macro-code-arb-to-thai
ใส่โค้ดลงในแมโคร

ขั้นที่ 3

เมื่อเราเขียนโค้ดเสร็จเรียบร้อยแล้ว ขั้นต่อไปเราจะไปทำการตั้งค่าตำแหน่งของปุ่มว่าเราจะวางปุ่มนี้ไว้ที่ตรงไหน ในส่วนนี้เราจะขอตั้งค่าวางปุ่มแมโครไว้ในแท็บหน้าแรก

ให้เราทำการคลิกที่ปุ่มลูกศรหัวลงทางด้านบนของโปรแกรม จากนั้นเลือกที่คำสั่งเพิ่มเติม

mc-word-quick-tool
จัดวางตำแหน่งแมโคร

เลือกที่ กำหนด Ribon เอง ที่ทางด้านขวามือ คลิกที่แถบ เลือกคำสั่งจาก เปลี่ยนเป็น แมโคร จะปรากฏแมโครที่เราได้สร้างไว้ในตอนแรกแสดงผลขึ้นมา และแถบ กำหนด Ribbon เอง ในด้านขวา ให้เลือกเป็น แท็บหลัก

mc-word-custom-ribbon
กำหนด Ribbon เอง

คลิกที่ หน้าหลัก ให้ขึ้นแถบสีน้ำเงินแล้วคลิกที่ปุ่มกลุ่มใหม่ที่ด้านล่าง เพื่อเพิ่ม Ribbon ใหม่ขึ้นมา

mc-word-add-new-ribbon
สร้างกลุ่มใหม่

Ribbon ที่สร้างมาใหม่สามารถเปลี่ยนชื่อได้ ด้วยการคลิกที่ Ribbon ใหม่ที่สร้างขึ้น แล้วกดปุ่มเปลี่ยนชื่อด้านล่าง ในที่นี้จะขอตั้งชื่อว่า เปลี่ยนเลข

mc-word-create-new-group-ribbon
ปรับแต่งกลุ่มใหม่

จากนั้นให้ทำการเพิ่มแมโครลงใน Ribbon ที่เราสร้างขึ้น ด้วยการเลือกที่แมโครแล้วกดที่ปุ่ม เพิ่ม กลางหน้าจอ แมโครของเราก็จะถูกเพิ่มเข้าไปยังกลุ่มใหม่ที่เราสร้างไว้

mc-word-add-macro-to-ribbon
เพิ่มแมโครในกลุ่มใหม่

แมโครก็เราก็สามารถเปลี่ยนชื่อที่จะแสดง และเลือกไอคอนได้ โดยวิธีการก็จะเหมือนกับการเปลี่ยนชื่อของ Ribbon

mc-word-change-name-ribbon
ปรับแต่งลักษณะแมโคร

แค่เท่านี้ก็เป็นอันเสร็จเรียบร้อย จะมีปุ่มใหม่เพิ่มมาให้แท็บหน้าแรกของเราสองปุ่ม สามารถทำการทดสอบได้ โดยการพิมพ์ตัวเลขอารบิคแล้วกดปุ่มเปลี่ยนอารบิคเป็นไทย

mc-word-new-ribbon
ปุ่มแมโครที่เสร็จแล้ว

ลองนำไปปรับใช้กันดูนะครับ รับรองว่าจะช่วยให้ชีวิตของหนุ่มสาวออฟฟิต และน้อง ๆ นักเรียนนักศึกษาให้ง่ายขึ้นแน่นอน

สามารถติดตามโพสใหม่ได้ ที่นี่