Làm thế nào để chuyển đổi số thành từ trong tài liệu Word?

Bài viết này nói về phương pháp chuyển đầu số sang từ tiếng Anh trong tài liệu Word, hãy xem chi tiết nếu bạn quan tâm.

Chuyển số sang các từ tiếng Anh với VBA

Chuyển đổi số sang các từ tiếng Anh trong Excel với Kutools cho Excel

---

Chuyển số sang các từ tiếng Anh với VBA

1. Chọn số bạn muốn chuyển thành từ, bấm Alt + F11 chìa khóa để mở Microsoft Visual Basic cho các ứng dụng cửa sổ.

2. nhấp chuột Chèn > Mô-đunvà sao chép các mã bên dưới và dán chúng vào Mô-đun kịch bản.

VBA: Chuyển số thành từ

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. nhấn F5 phím để chạy mã, bây giờ số đã được chuyển đổi thành từ.

Chú thích： Mã chỉ hoạt động ở một số mỗi lần.

---

Chuyển số sang các từ tiếng Anh với Kutools cho Excel

Nếu bạn muốn chuyển đổi số thành từ trong trang tính Excel, có một công cụ hữu ích: Số thành từ của Kutools cho Excel, có thể chuyển đổi số sang các từ tiếng Anh hoặc tiếng Trung hoặc chuyển đổi số sang tiền tệ tiếng Anh hoặc tiền tệ Trung Quốc.

Sau cài đặt miễn phí Kutools cho Excel, vui lòng làm như sau:

1. Chọn các ô bạn muốn chuyển số thành từ, sau đó nhấp vào Kutools > Nội dung > Số thành từ.

2. Trong hộp thoại bật lên, hãy kiểm tra Tiếng Anh và Không được chuyển đổi sang tiền tệ tùy chọn.

3. nhấp chuột Ok or Đăng Nhập, các số đã chọn sẽ được chuyển thành từ.