KM : สำนักส่งเสริมวิชาการและงานทะเบียน


Macro แปลงเลขไทยใน MS WORD

วันนี้ สำนักส่งเสริมวิชาการและงานทะเบียน มีการจัด KM ในช่วงบ่ายๆ มี หัวข้อที่ำสำคัญ อยู่ 2 ส่วนด้วยการ คือ

1. การนำเสนอความคืบหน้า ของโปรแกรม จัดตารางสอน
    สาธิตการใช้งานโปรแกรม ระหว่างการพัฒนา เพื่อแสดงความคือหน้าของ  

2. การเขียน Macro  แปลงเลขไทยใน MS WORD
บรรยาย โดยคุณ ธรรมนูญ จูทา โดยความอนุเคราะห์ข้อมูลของ อาจารย์ มงคล แพทองคำ นะครับ

^^ สะดวกในการใช้งานดีครับ เลยเอามาเขียนแบ่งปันกันครับ
ถ้าเป็น word 2003 สามารถทำได้โดย

1. ทำการเปิดโปรแกรม word ขึ้นมาก่อน

2 . เลือกเมนู เครื่องมือ > แมโคร > Visual Basic Editor

  2.1 เมื่อได้ หน้าต่าง Visual Basic  Editor ขึ้นมา
คลิกเลือกที่ Normal (เพื่อสามารถใช้กับทุกเอกสารที่เป็น word เราได้ ) พิมพ์ชุดคำสั่งเหล่านี้ลงไปนะครับ

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
NextEnd 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

WORK ^^ ครับ

คำสำคัญ (Tags): #macro#ms word
หมายเลขบันทึก: 459147เขียนเมื่อ 7 กันยายน 2011 15:42 น. ()แก้ไขเมื่อ 11 มิถุนายน 2012 14:00 น. ()สัญญาอนุญาต: ครีเอทีฟคอมมอนส์แบบ แสดงที่มา-ไม่ใช้เพื่อการค้า-อนุญาตแบบเดียวกัน


ความเห็น (0)

ไม่มีความเห็น

พบปัญหาการใช้งานกรุณาแจ้ง LINE ID @gotoknow
ขอแนะนำ ClassStart
ระบบจัดการการเรียนการสอนผ่านอินเทอร์เน็ต
ทั้งเว็บทั้งแอปใช้งานฟรี