microsoft word

การเขียนแมโคร

1. กดแป้น Alt+F8 เพื่อเรียกกรอบโต้ตอบ Macro
2. ที่ช่อง Macro Name: พิมพ์ ConvertComplexScriptNumericToLatinTextNumeric
3. คลิกปุ่ม Create
4. คัดลอกโค้ดข้างล่างนี้ไปวาง

    Dim bytRound as Byte

    Selection.HomeKey Unit:=wdStory

    Selection.Find.ClearFormatting

    Selection.Find.Replacement.ClearFormatting

    Selection.Find.Replacement.LanguageID = wdEnglishUS

    For bytRound = 0 To 9

        With Selection.Find

            .Text = bytRound

            .Replacement.Text = bytRound

            .Forward = True

        End With

    Selection.Find.Execute Replace:=wdReplaceAll

    Next bytRound

จากนั้นกดแป้น Alt+F4 เพื่อปิดหน้าต่าง Visual Basic Editor

การเรียกใช้แมโคร

1. กดแป้น Alt+F8 เพื่อเรียกกรอบโต้ตอบ Macro
2. คลิกเลือกแมโคร ConvertComplexScriptNumericToLatinTextNumeric
3. คลิกปุ่ม Run

เรียน เจ้าหน้าที่

รบกวน อธิบายการทำ วิธีที่ 1 ให้ด้วยคะ  ว่าต้องทำอย่างไรบ้าง เข้าที่ไหน

ขอบคุณค่ะ

สิริพร

วิธีที่ 1 ต้องใช้แมโครเปลี่ยนเลขอาระบิคที่เข้ารหัสแสดงผลใน Complex Script Mode ไปเป็น Latin Text Mode

วิธีที่ 2 ใช้ฟอนต์ TH Sarabun New แทน