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ừ.

Công cụ năng suất văn phòng tốt nhất

Kutools cho Word - Nâng cao trải nghiệm sử dụng từ của bạn với Over 100 Các tính năng đáng chú ý!

🤖 Trợ lý AI của Kutools: Biến đổi bài viết của bạn bằng AI - Tạo nội dung  /  Viết lại văn bản  /  Tóm tắt tài liệu  /  Hỏi thông tin dựa trên tài liệu, tất cả đều có trong Word

📘 Làm chủ tài liệu: Chia trang  /  Hợp nhất tài liệu  /  Lựa chọn xuất khẩu ở nhiều định dạng khác nhau (PDF/TXT/DOC/HTML...)  /  Chuyển đổi hàng loạt sang PDF  /  Xuất trang dưới dạng hình ảnh  /  In nhiều tập tin cùng một lúchữu ích. Cảm ơn !

✏ Chỉnh sửa nội dung: Tìm và thay thế hàng loạt trên nhiều tệp  /  Thay đổi kích thước tất cả hình ảnh  /  Hoán đổi hàng và cột của bảng  /  Chuyển bảng thành văn bảnhữu ích. Cảm ơn !

🧹 Dễ dàng làm sạch: Quét đi Không gian bổ sung  /  Phần ngắt  /  Tất cả các tiêu đề  /  Hộp văn bản  /  Các siêu liên kết  / Để biết thêm các công cụ xóa, hãy truy cập Xóa nhómhữu ích. Cảm ơn !

➕ Phụ trang quảng cáo: Chèn Ngàn dấu phân cách  /  Hộp kiểm tra  /  Nút radio  /  Mã QR  /  Mã vạch  /  Bảng đường chéo  /  Chú thích phương trình  /  Hình ảnh Caption  /  Bảng chú thích  /  Nhiều Hình Ảnh  / Khám phá thêm trong Chèn nhómhữu ích. Cảm ơn !

???? Lựa chọn chính xác: Xác định trang cụ thể  /  bảng  /  hình dạng  /  đoạn văn tiêu đề  / Tăng cường điều hướng với chi tiết Chọn tính nănghữu ích. Cảm ơn !

⭐ Cải tiến sao: Điều hướng nhanh chóng đến bất kỳ vị trí nào  /  tự động chèn văn bản lặp đi lặp lại  /  chuyển đổi liền mạch giữa các cửa sổ tài liệu  /  11 công cụ chuyển đổihữu ích. Cảm ơn !

👉 Bạn muốn thử những tính năng này? Kutools cho Word cung cấp một 60 ngày dùng thử miễn phí, không có giới hạn! 🚀

Tải xuống miễn phí     Tìm hiểu thêm     Mua ngay