วิธีสร้างแมโคร- คลิกที่ มุมมอง > แมโคร > ตั้งชื่อแมโคร > สร้าง > Save
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
หากต้องการเปลี่ยนเลขไทยให้เป็นเลขอาร์บิกดังเดิม ก็แค่เปลี่ยนโค้ด ASCII จาก Text ให้เป็น .Text = Chr(240+i) และ .Replacement ให้เป็น .Replacement.Text = Chr(48+i) ดังนี้
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
วิธีเรียกใช้แมโคร
- เรียกใช้เครื่องมือแมโครอีกครั้ง > คลิกที่ชื่อแมโคร และคลิกเรียกใช้
ไม่มีความคิดเห็น:
แสดงความคิดเห็น