Trong bài viết này sẽ có 3 phương pháp để bạn đếm số từ cho các phần trong tài liệu Word của mình.
Thật dễ dàng để có được tổng số từ của một tài liệu. Nhưng trong Word không có chức năng cho chúng ta biết số lượng từ của một phần. Và do thực tế là chúng tôi muốn đưa nội dung của cùng một chủ đề vào một phần, chẳng hạn như sắp xếp một chương trong khi viết một cuốn sách, chúng tôi cần đưa ra các giải pháp thay thế để đếm số phần. 
Sau đây là 3 cách tiếp cận yêu cầu bạn chạy macro.
Phương pháp 1: Đếm số từ cho phần hiện tại
- Trước tiên, hãy đặt con trỏ vào bên trong vùng cần nhắm đến.
- Sau đó, bạn cần mở trình soạn thảo VBA trong Word. Nhấp vào "Nhà phát triển" và sau đó nhấp vào lệnh "Visual Basic". Trong trường hợp bạn không thể tìm thấy “Developer” trong Ribbon, hãy nhấn “Alt+ F11” để thay thế.
- Tiếp theo, nhấp vào dự án "Bình thường" ở cột bên trái.
- Sau đó nhấp vào tab "Chèn".
- Trên menu thả xuống đó, chọn “Mô-đun”.
- Mở mô-đun mới bằng cách nhấp đúp chuột.
- Bây giờ trong mô-đun mở, dán mã dưới đây:
Sub CountWordsOfCurrentSection()
MsgBox ("There are " & Selection.Sections(1).Range.ComputeStatistics(wdStatisticWords) _
& " words in current section.")
End Sub
- Cuối cùng, nhấp vào “Chạy” hoặc nhấn “F5” để thực thi mã.
Bạn sẽ nhận được một hộp thông báo, hiển thị tổng số phần hiện tại, chẳng hạn như bên dưới:
Phương pháp 2: Đếm số từ cho một phần cụ thể
Giả sử bạn đang viết một cuốn sách và đặt mỗi chương thành một phần riêng lẻ. Sau đó, để biết bạn đã viết bao nhiêu từ trong một chương, bạn có thể sử dụng phương pháp này.
- Thực hiện theo các bước trên để cài đặt và chạy macro.
- Chỉ cần thay thế macro bằng cái này:
Sub CountWordsOfSpecificSection()
Dim strSecNum As String
Dim objDoc As Document
Application.ScreenUpdating = False
Set objDoc = ActiveDocument
strSecNum = InputBox("Enter a section number here:", "Enter Section Number")
MsgBox ("There are " & objDoc.Sections(strSecNum).Range.ComputeStatistics(wdStatisticWords) _
& " words in section " & strSecNum & ".")
Application.ScreenUpdating = True
End Sub
- Và chạy nó, sẽ có một hộp nhập liệu. Trong hộp “Nhập số phần”, hãy nhập số phần và nhấp vào “OK” để tiếp tục.
Kết quả được hiển thị trên hộp thông báo.
Phương pháp 3: Đếm số từ cho tất cả các phần trong tài liệu
Như phụ đề gợi ý, cách này sẽ giúp bạn có tổng số từ của từng phần trong tài liệu và liệt kê chúng trên hộp thông báo.
- Trước hết, hãy mở tài liệu mục tiêu.
- Tuy nhiên, bạn phải lặp lại các bước trong phương pháp 1 để cài đặt và chạy macro.
- Và lần này, thay đổi với macro này:
Sub CountWordsOfEachSectionInDoc()
Dim objDoc As Document
Dim nNumberOfSection As Long
Dim strText As String
Application.ScreenUpdating = False
Set objDoc = ActiveDocument
nNumberOfSection = objDoc.Sections.Count
For nNumberOfSection = 1 To nNumberOfSection
strText = strText & "There are " & objDoc.Sections(nNumberOfSection) _
.Range.ComputeStatistics(wdStatisticWords) & " words in section " & nNumberOfSection & "; " _
& vbNewLine
Next nNumberOfSection
MsgBox strText
Application.ScreenUpdating = True
End Sub
Đây là kết quả có thể xảy ra:
Lưu dữ liệu có giá trị
Trong khi xử lý tất cả các loại tài liệu, bạn phải ghi nhớ sự an toàn của chúng. Vì bạn không bao giờ có thể biết được khi nào thì lần mất dữ liệu tiếp theo sẽ xảy ra, nên bạn nên sao lưu các tệp quan trọng. Bên cạnh đó, thật tốt khi có được một công cụ có thể phục hồi tài liệu, nếu có.
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 xls sửa chữa 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