Note: The other languages of the website are Google-translated. Back to English

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ừ.
số doc sang từ 1

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.

Kutools cho Excel, với hơn 300 chức năng tiện dụng, giúp công việc của bạn dễ dàng hơn. 

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ừ.
số doc sang từ 1

2. Trong hộp thoại bật lên, hãy kiểm tra Tiếng AnhKhông được chuyển đổi sang tiền tệ tùy chọn.
số doc sang từ 1

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 Word được đề xuất

 

Kutools cho Word - Hơn 100 tính năng nâng cao cho Word, tiết kiệm 50% thời gian của bạn

  • Các hoạt động phức tạp và lặp đi lặp lại có thể được thực hiện xử lý một lần trong vài giây.
  • Chèn nhiều hình ảnh trên các thư mục vào tài liệu Word cùng một lúc.
  • Hợp nhất và kết hợp nhiều tệp Word trên các thư mục thành một với thứ tự mong muốn của bạn.
  • Chia tài liệu hiện tại thành các tài liệu riêng biệt theo tiêu đề, ngắt phần hoặc các tiêu chí khác.
  • Chuyển đổi tệp giữa Doc và Docx, Docx và PDF, bộ sưu tập các công cụ để chuyển đổi và lựa chọn phổ biến, v.v.
Nhận xét (0)
Chưa có xếp hạng. Hãy là người đầu tiên xếp hạng!
Không có bình luận nào được đăng ở đây
Để lại ý kiến ​​của bạn
Đăng với tư cách khách
×
Đánh giá bài viết này:
0   Nhân vật
Các vị trí được đề xuất

Kết nối với chúng tôi

Bản quyền © 2009 - www.extendoffice.com. | Đã đăng ký Bản quyền. cung cấp bởi ExtendOffice. | BẢN ĐỒ CHI NHÁNH
Microsoft và logo Office là các nhãn hiệu hoặc nhãn hiệu đã đăng ký của Microsoft Corporation tại Hoa Kỳ và / hoặc các quốc gia khác.
Được bảo vệ bởi Sectigo SSL