วิธีการแปลงตัวเลขเป็นคำในเอกสาร Word?

บทความนี้กำลังพูดถึงวิธีการแปลงตัวเลขเป็นคำภาษาอังกฤษในเอกสาร Word โปรดไปดูรายละเอียดหากคุณสนใจ

แปลงตัวเลขเป็นคำภาษาอังกฤษด้วย VBA

แปลงตัวเลขเป็นคำภาษาอังกฤษใน Excel ด้วย Kutools for Excel

แปลงตัวเลขเป็นคำภาษาอังกฤษด้วย VBA

1. เลือกหมายเลขที่คุณต้องการแปลงเป็นคำกด Alt + F11 กุญแจเพื่อเปิด Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

2 คลิก สิ่งที่ใส่เข้าไป > โมดูลและคัดลอกรหัสด้านล่างและวางลงในไฟล์ โมดูล ต้นฉบับ

VBA: แปลงตัวเลขเป็นคำ

Sub ConvertNumberToWord()
'UpdatebyExtendoffice20181010
    Dim xDigit As Double
    Dim xBuff As String
    On Error Resume Next
    Selection.MoveLeft wdWord, 1, wdMove
    Selection.MoveRight wdWord, 1, wdExtend
    xDigit = Val(Trim(Selection.Text))
    If xDigit = 0 And Str(xDigit) <> Trim(Selection.Text) Then Exit Sub
    If xDigit > 999999 Then
        If xDigit <= 999999999 Then
            xBuff = Trim(Int(Str(xDigit / 1000000)))
            Selection.Fields.Add Selection.Range, wdFieldEmpty, "= " + xBuff + " \* CardText", True
            Selection.MoveLeft wdWord, 1, wdExtend
            xBuff = Selection.Text & " million "
            xDigit = Right(Str(xDigit), 6)
        End If
    End If
    If xDigit <= 999999 Then
        Selection.Fields.Add Selection.Range, wdFieldEmpty, "= " + Str(xDigit) + " \* CardText", True
        Selection.MoveLeft wdWord, 1, wdExtend
        xDigit = xBuff & Selection.Text
        Selection.TypeText xDigit + " "
    Else
        MsgBox "Number too large", vbOKOnly, "Kutool for Word"
    End If
End Sub

3 กด F5 คีย์ในการรันโค้ดตอนนี้หมายเลขถูกแปลงเป็นคำแล้ว

หมายเหตุ： รหัสใช้งานได้เพียงหมายเลขเดียวในแต่ละครั้ง

แปลงตัวเลขเป็นคำภาษาอังกฤษด้วย Kutools for Excel

หากคุณต้องการแปลงตัวเลขเป็นคำในแผ่นงาน Excel มีเครื่องมือที่สะดวก - ตัวเลขเป็นคำ ของ Kutools for Excel ซึ่งสามารถแปลงตัวเลขเป็นคำภาษาอังกฤษหรือภาษาจีนหรือแปลงตัวเลขเป็นสกุลเงินอังกฤษหรือสกุลเงินจีน

หลังจาก ติดตั้งฟรี Kutools สำหรับ Excel โปรดทำดังนี้:

1. เลือกเซลล์ที่คุณต้องการแปลงตัวเลขเป็นคำจากนั้นคลิก Kutools > คอนเทนต์ > ตัวเลขเป็นคำ.

2. ในกล่องโต้ตอบ popping ให้เลือก ภาษาอังกฤษ และ ไม่ได้แปลงเป็นสกุลเงิน ตัวเลือก

3 คลิก Ok or ใช้ตัวเลขที่เลือกจะถูกแปลงเป็นคำ

สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน

Kutools สำหรับ Word - ยกระดับประสบการณ์คำศัพท์ของคุณด้วย Over 100 คุณสมบัติเด่น!

🤖 Kutools ผู้ช่วย AI: แปลงโฉมงานเขียนของคุณด้วย AI - สร้างเนื้อหา  /  เขียนข้อความใหม่  /  สรุปเอกสาร  /  สอบถามข้อมูล ขึ้นอยู่กับเอกสารทั้งหมดนี้ภายใน Word

📘 ความเชี่ยวชาญด้านเอกสาร: แยกหน้า  /  ผสานเอกสาร  /  ส่งออกตัวเลือกในรูปแบบต่างๆ (PDF/TXT/DOC/HTML...)  /  แบทช์แปลงเป็น PDF  /  ส่งออกเพจเป็นรูปภาพ  /  พิมพ์หลายไฟล์พร้อมกัน...

✏ การแก้ไขเนื้อหา: ค้นหาแบทช์และแทนที่ ข้ามหลายไฟล์  /  ปรับขนาดรูปภาพทั้งหมด  /  ย้ายแถวและคอลัมน์ของตาราง  /  แปลงตารางเป็นข้อความ...

🧹 ทำความสะอาดได้อย่างง่ายดาย: หลบไป พื้นที่พิเศษ  /  แบ่งส่วน  /  ส่วนหัวทั้งหมด  /  กล่องข้อความ  /  เชื่อมโยงหลายมิติ  / หากต้องการดูเครื่องมือถอดเพิ่มเติม โปรดไปที่ของเรา ลบกลุ่ม...

➕ ส่วนแทรกโฆษณา: แทรก ตัวคั่นหลักพัน  /  กล่องกาเครื่องหมาย  /  ปุ่มวิทยุ  /  คิวอาร์โค้ด  /  บาร์โค้ด  /  ตารางเส้นทแยงมุม  /  คำอธิบายสมการ  /  คำบรรยายภาพ  /  คำบรรยายตาราง  /  รูปภาพหลายภาพ  / ค้นพบเพิ่มเติมใน แทรกกลุ่ม...

🔍 การเลือกที่แม่นยำ: ระบุ หน้าที่เฉพาะเจาะจง  /  ตาราง  /  รูปร่าง  /  หัวเรื่องย่อหน้า  / เสริมการนำทางด้วย ข้อมูลเพิ่มเติม เลือกคุณสมบัติ...

⭐ การปรับปรุงดาว: นำทางอย่างรวดเร็วไปยังสถานที่ใด ๆ  /  แทรกข้อความซ้ำอัตโนมัติ  /  สลับระหว่างหน้าต่างเอกสารได้อย่างราบรื่น  /  11 เครื่องมือการแปลง...

???? ต้องการลองใช้คุณสมบัติเหล่านี้หรือไม่? Kutools for Word มีไฟล์ ทดลองใช้ฟรี 60 วันโดยไม่มีข้อจำกัด! 🚀

ดาวน์โหลดฟรี     อ่านเพิ่มเติม     ซื้อเลย