Trong bài viết hôm nay, chúng tôi xin giới thiệu đến bạn 2 phương pháp đếm tổng số từ của một ngôn ngữ trong văn bản Word đa ngôn ngữ.
Thỉnh thoảng, một số bạn có thể có nhu cầu chỉnh sửa tài liệu Word đa ngôn ngữ. Kết quả là sẽ có lúc bạn muốn thực hiện đếm từ cho một ngôn ngữ cụ thể nhưng lại nhận thấy Word không thể thực hiện được tác vụ này.
Sau đó, mục đích của chúng tôi là cung cấp cho bạn 2 giải pháp hữu ích để giải quyết vấn đề như vậy.
Phương pháp 1: Sử dụng tùy chọn “Tìm nâng cao”
- Trước hết, hãy nhấp vào nút hình tam giác lộn ngược phía sau “Tìm” trong nhóm “Chỉnh sửa” trong tab “Trang chủ”.
- Bây giờ trong hộp thoại “Tìm và thay thế”, hãy nhấp vào nút “Thêm”.
- Và đánh dấu vào ô “Chỉ tìm toàn bộ từ”.
- Sau đó nhấp vào nút "Định dạng".
- Tiếp theo chọn “Ngôn ngữ”.
- Trong hộp thoại “Tìm ngôn ngữ”, hãy tìm và chọn ngôn ngữ mục tiêu rồi nhấn “OK”.
- Bây giờ hãy quay lại hộp “Tìm và thay thế”, nhấp vào “Tìm trong” và chọn “Tài liệu chính”.
- Tiếp theo, tất cả các từ tiếng Anh sẽ được chọn và chuyển sang kiểm tra số từ ở góc dưới bên trái của màn hình. Chúng ta có thể thấy số là 93.
Cách 2: Chạy Macro trong Word
- Trước tiên, hãy nhấp vào tab “Nhà phát triển”.
- Sau đó nhấp vào “Visual Basic” để kích hoạt trình soạn thảo VBA. Trong trường hợp bạn chưa bật tab “Nhà phát triển”, thay vào đó hãy nhấn “Alt + F11”.
- Tiếp theo nhấp vào “Bình thường” và sau đó nhấp vào “Chèn”.
- Chọn “Mô-đun”.
- Và nhấp đúp vào mô-đun mới để mở không gian mã hóa.
- Sau đó dán các mã sau vào đó:
Sub CountTotalWordsOfOneLanguage()
Dim objRange As Range
Dim nWords As Long
' Initialization
Set objRange = ActiveDocument.Range
nWords = 0
' Find all English words and do word count.
With objRange.Find
.LanguageID = wdFrench
Do While .Execute
nWords = nWords + objRange.ComputeStatistics(wdStatisticWords)
Loop
End With
MsgBox nWords
End Sub
- Cuối cùng, nhấp vào nút "Chạy".
Sẽ có một hộp thông báo bật lên. Con số đề cập đến tổng số từ của văn bản tiếng Pháp trong tài liệu này.
Lưu ý:
Trong dòng mã “.LanguageID = wdtiếng Pháp", các "wdtiếng Pháp” có nghĩa là tiếng Pháp. Để tùy chỉnh mã cho mục đích sử dụng cụ thể hơn, bạn có thể thay thế ID ngôn ngữ bằng ngôn ngữ chính xác mà bạn muốn. Và để biết thêm ID ngôn ngữ, bạn có thể truy cập: https://docs.microsoft.com/en-us/previous-versions/office/developer/office-2003/aa172988(v=office.11)
Xử lý đúng các tệp Word bị hỏng
Đôi khi, Word sẽ tắt hoặc đóng băng do đủ loại lỗi hoặc nhầm lẫn. Giả sử, nếu bạn không sao lưu tệp thường xuyên, rất có thể bạn sẽ mất tất cả dữ liệu quý giá. Và 2 cách giải quyết còn lại là sử dụng chức năng có sẵn của Word hoặc tải xuống một chương trình để tài liệu sửa chữaVì phương pháp thứ nhất thường không hiệu quả, nên việc lựa chọn một công cụ của bên thứ ba là điều nên làm.
Giới thiệu tác giả:
Vera Chen là một chuyên gia phục hồi dữ liệu trong DataNumen, Inc., công ty hàng đầu thế giới về công nghệ khôi phục dữ liệu, bao gồm sửa lỗi excel và pdf sửa chữa các sản phẩm phần mềm. Để biết thêm thông tin, hãy truy cập www.datanumennăm