Trong bài viết hôm nay, chúng tôi rất vui được chia sẻ với bạn 2 phương pháp hiệu quả để loại trừ văn bản bảng khỏi thống kê số lượng từ.
Bảng thường được sử dụng để chứa dữ liệu. Và bảng là người bạn tốt nhất của chúng ta trong việc minh họa các điểm khi làm việc trên tài liệu. Sau đó, có thể hơi khó xử khi liên quan đến số từ. Đôi khi, chúng ta chỉ cần lấy số từ của văn bản chính chứ không phải tất cả dữ liệu trong bảng. Tuy nhiên, mọi người đều biết rằng Word đếm tất cả các từ trong tài liệu của bạn theo mặc định. Vì lý do này, chúng tôi đã nghĩ ra các phương tiện hiệu quả. Đọc để tìm hiểu thêm.
Phương pháp 1: Chọn bảng theo cách thủ công và tự mình thực hiện phép tính
Nếu đó là một tài liệu ngắn chỉ có một hoặc hai bảng, bạn có thể chọn từng bảng một bằng cách giữ phím “Ctrl”. Theo phương pháp này, tổng số trong các bảng đã chọn sẽ hiển thị trên thanh trạng thái, chẳng hạn như bên dưới:
Như bạn thấy, có 2 số. Cái đầu tiên đề cập đến số lượng từ trong các bảng đã chọn trong khi cái thứ hai là tổng số từ trong tài liệu của bạn. Chỉ cần lấy số thứ hai trừ đi số đầu tiên sẽ có kết quả.
Phương pháp 2: Chạy mã VBA
Như đã đề cập ở trên, phương pháp 1 sẽ tẻ nhạt nếu bạn có số lượng lớn bảng trong tài liệu. Chọn chúng theo cách thủ công chắc chắn không phải là cách lý tưởng. Thay vào đó, chúng tôi khuyên bạn nên sử dụng macro sẽ đếm tất cả các từ nhưng loại trừ những từ này trong bảng và chú thích.
- Trước hết, hãy nhấn tổ hợp phím “Alt + F11” để mở trình soạn thảo VBA trong Word.
- Sau đó, nhấp vào “Bình thường”.
- Tiếp theo, nhấp vào tab Chèn Chèn.
- Và chọn “Mô-đun” trên menu thả xuống của tab “Chèn”.
- Nhấp đúp vào mô-đun mới để mở khu vực mã hóa ở bên phải.
- Bây giờ dán macro sau vào đó:
Sub ExcludeTableAndCaptionWordsFromWordCount()
Dim objTable As Table
Dim objParagraph As Paragraph
Dim objDoc As Document
Dim nTableWords As Integer, nDocWords As Integer, nWordCount As Integer, nCaptionWords As Integer
Set objDoc = ActiveDocument
nTableWords = 0
nCaptionWords = 0
nDocWords = ActiveDocument.ComputeStatistics(wdStatisticWords)
With objDoc
For Each objTable In .Tables
nTableWords = nTableWords + objTable.Range.ComputeStatistics(wdStatisticWords)
Next objTable
End With
With objDoc
For Each objParagraph In .Paragraphs
If objParagraph.Range.Style = "Caption" Then
nCaptionWords = nCaptionWords + objParagraph.Range.ComputeStatistics(wdStatisticWords)
End If
Next objParagraph
End With
nWordCount = nDocWords - nTableWords - nCaptionWords
MsgBox ("There are " & nWordCount & " main text words in this document." & vbCr & "The following items are excluded from word count: " & vbCr & "Total words in tables: " & nTableWords & vbCr & "Total caption words: " & nCaptionWords)
End Sub
- Cuối cùng, nhấp vào “Chạy”.
Khi chạy macro sẽ xuất hiện hộp thông báo hiển thị kết quả đếm.
Xử lý thiệt hại từ ngữ
Chúng tôi phụ thuộc rất nhiều vào phần mềm như Word để xử lý công việc hàng ngày. Kết quả là, chúng tôi không thể ngừng nghĩ về hậu quả to lớn của việc có một từ tham nhũng. Bạn có thể cảm thấy tuyệt vọng trừ khi có đủ công cụ sửa chữa tài liệu.
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