4 cách để loại trừ các số trong tài liệu Word của bạn khỏi thống kê số lượng từ

Lời giải Tháng Chín 28, 2025
Chia sẻ ngay bây giờ:

Trong bài viết hôm nay, chúng tôi sẽ giới thiệu cho bạn 4 cách hiệu quả để loại trừ các số trong tài liệu Word của bạn khỏi thống kê số từ.

Nói chung, Word đếm tất cả các loại văn bản, có thể là từ hoặc số. Tuy nhiên, thỉnh thoảng, chúng ta có thể thực hiện đếm từ loại trừ một số yếu tố nhất định, chẳng hạn như số. Do đó, chúng tôi rất vui mừng được giới thiệu cho bạn 4 phương pháp để đáp ứng yêu cầu đó.Loại trừ các số trong Tài liệu Word của bạn khỏi Thống kê số lượng từ

Trước hết, bạn phải sao lưu tài liệu mục tiêu và thực hiện tất cả các phương pháp bên dưới trên bản sao của mình.

Phương pháp 1: Xóa tất cả các số

  1. Đầu tiên, mở tệp sao chép và nhấp vào nút thả xuống trên “Tìm” trong tab “Trang chủ”.
  2. Thứ hai, chọn “Advanced Find” để mở hộp thoại “Find and Replace”.Nhấp vào "Trang chủ" -> Nhấp vào "Tìm" -> Chọn "Tìm kiếm nâng cao"
  3. Tiếp theo nhập “^#” vào hộp văn bản “Find what”. Nếu bạn không thể nhớ chuỗi này, hãy đặt con trỏ vào hộp văn bản “Find what” và nhấp vào “More”, sau đó nhấp vào nút “Special”.
  4. Sau đó chọn “Chữ số bất kỳ”.
  5. Bây giờ hãy nhấp vào “Tìm trong” và chọn “Tài liệu chính”.
  6. Bạn sẽ tìm thấy tất cả các số đang được lựa chọn.Nhập "^#" vào Hộp văn bản "Tìm gì"->Nhấp vào "Tìm trong"->Chọn "Tài liệu chính"
  7. Nhấn “Xóa”.
  8. Khi các số đã biến mất, bạn có thể nhận thấy Word coi một số dấu chấm câu là từ ngay bây giờ. Vì vậy, bạn cũng cần phải loại bỏ tất cả các dấu chấm câu. Mở lại hộp “Tìm và thay thế”. Lần này đầu vào “[,.;:'”””/\!\*\?\\]” (không có dấu ngoặc kép) trong hộp văn bản “Find what”.
  9. Và hãy nhớ đánh dấu vào ô “Sử dụng ký tự đại diện”.
  10. Lặp lại bước 5 để tìm tất cả các dấu chấm câu.Nhập Chuỗi vào Hộp văn bản "Tìm gì"-> Nhấp vào "Tìm trong" -> Chọn "Tài liệu chính"
  11. Xóa chúng.
  12. Cuối cùng, nhấp vào “Xem lại” rồi “Đếm từ” để xem tổng số văn bản.Nhấp vào "Xem lại"-> Nhấp vào "Đếm từ"

Phương pháp 2: Định dạng tất cả các số dưới dạng văn bản ẩn

Word không bao gồm các văn bản ẩn trong số từ, vì vậy bạn có thể chọn đặt số ở định dạng ẩn.

  1. Trước hết, lặp lại 6 bước đầu tiên trong phương pháp.
  2. Thay vì xóa các số đã chọn, hãy nhấn “Ctrl + D” để mở hộp “Phông chữ”.
  3. Chọn hộp "Ẩn" và nhấp vào "OK".Kiểm tra hộp "Ẩn"-> Nhấp vào "OK"
  4. Tiếp theo lặp lại từ bước 8 đến 9 để tìm tất cả các dấu câu.
  5. Tương tự, hãy làm theo bước 2 và 3 để định dạng dấu câu dưới dạng văn bản ẩn.
  6. Cuối cùng, kiểm tra tổng số từ.

Cách 3: Chạy Macro trong Word

Macro sau sẽ tự động thực hiện các bước trên và trả về cho bạn một hộp thông báo, chứa tổng số từ không bao gồm số.

  1. Để bắt đầu, nhấn “Alt + F11” trong Word để mở trình soạn thảo VBA.
  2. Tiếp theo nhấp vào "Bình thường" ở cột bên trái.
  3. Sau đó nhấp vào tab “Chèn” và chọn “Mô-đun”.Nhấp vào "Bình thường" -> Nhấp vào "Chèn" -> Nhấp vào "Mô-đun"
  4. Nhấp đúp chuột vào mô-đun để mở và dán mã dưới đây:
Sub ExcludeNumbersFromWordCount()
  Dim objDoc As Document
  Dim nWord As Integer
 
  Set objDoc = ActiveDocument
 
  With Selection
    .HomeKey Unit:=wdStory
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
      .Text = "^#"
      .Replacement.Text = ""
      .Forward = True
      .Wrap = wdFindContinue
      .Format = False
      .MatchCase = False
      .MatchWholeWord = False
      .MatchWildcards = False
      .MatchSoundsLike = False
      .MatchAllWordForms = False
      .Execute
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
 
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
      .Text = "[,.;:’" & ChrW(8221) & ChrW(8221) & """/\!\*\?\\]"
      .Replacement.Text = ""
      .Forward = True
      .Wrap = wdFindContinue
      .Format = False
      .MatchCase = False
      .MatchWholeWord = False
      .MatchAllWordForms = False
      .MatchSoundsLike = False
      .MatchWildcards = True
      .Execute
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
  End With
 
  nWord = objDoc.Range.ComputeStatistics(wdStatisticWords)
 
  MsgBox ("There are " & nWord & " words in this document.")
End Sub
  1. Nhấp vào "Chạy".Dán mã-> Nhấp vào "Chạy"

Bạn sẽ nhận được một hộp thông báo cho bạn biết có bao nhiêu từ trong tài liệu của bạn, chẳng hạn như dưới đây:Hộp kết quả

Phương pháp 4: Loại trừ các số trong bảng khỏi Đếm từ

Đây là một nhu cầu cụ thể để loại trừ các số trong bảng khỏi số lượng từ. Giải pháp là chạy macro.

  1. Cài đặt và chạy macro như đã nêu ở trên trong phương pháp 3.
  2. Sau đó thay thế macro đó bằng cái này:
Sub ExcludeNumbersInTablesFromWordCount()
  Dim objDoc As Document, objNewDoc As Document
  Dim nWord As Integer, nWordInNewDoc As Integer, nWordInNewDocWithoutNum As Integer, nNumber As Integer
  Dim objTable As Table
  Dim objRange As Range
  Dim objParagraph As Paragraph
 
  Set objDoc = ActiveDocument
  Set objNewDoc = Documents.Add
  nWord = objDoc.Range.ComputeStatistics(wdStatisticWords)
 
  For Each objTable In objDoc.Tables
    objTable.Range.Select
    Selection.Copy
 
    Set objRange = objNewDoc.Range
 
    objRange.Collapse Direction:=wdCollapseEnd
    objRange.PasteSpecial DataType:=wdPasteRTF
    objRange.Collapse Direction:=wdCollapseEnd
    objRange.Text = vbCr
  Next objTable
 
  objNewDoc.Activate
 
  For Each objParagraph In ActiveDocument.Paragraphs
    If objParagraph.Range.Style = "Caption" Then
      objParagraph.Range.Delete
    End If
  Next objParagraph
 
  nWordInNewDoc = objNewDoc.Range.ComputeStatistics(wdStatisticWords)
 
  With Selection
    .HomeKey Unit:=wdStory
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
      .Text = "^#"
      .Replacement.Text = ""
      .Forward = True
      .Wrap = wdFindContinue
      .Format = False
      .MatchCase = False
      .MatchWholeWord = False
      .MatchWildcards = False
      .MatchSoundsLike = False
      .MatchAllWordForms = False
      .Execute
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
 
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
      .Text = "[,.;:’" & ChrW(8221) & ChrW(8221) & """/\!\*\?\\]"
      .Replacement.Text = ""
      .Forward = True
      .Wrap = wdFindContinue
      .Format = False
      .MatchCase = False
      .MatchWholeWord = False
      .MatchAllWordForms = False
      .MatchSoundsLike = False
      .MatchWildcards = True
      .Execute
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
  End With
 
  nWordInNewDocWithoutNum = objNewDoc.Range.ComputeStatistics(wdStatisticWords)
  nNumber = nWordInNewDoc - nWordInNewDocWithoutNum
  objDoc.Activate
  MsgBox ("There are " & nWord - nNumber & " words in this document, excluding numbers in tables.")
End Sub

Sẽ có một hộp thông báo như thế này:Đếm từ không bao gồm số trong bảng

Suy nghĩ trước

Vì Word không phải là phần mềm hoàn hảo, bạn cần thực hiện các biện pháp phòng ngừa trước khi quá muộn. Cách hữu ích nhất là sao lưu tài liệu của bạn và sao lưu càng thường xuyên càng tốt. Việc sao lưu một tài liệu có thể chỉ mất vài phút, nhưng việc khôi phục một tài liệu đã bị mất có thể mất hàng giờ, thậm chí hàng ngày. docx bị hỏng. Vì vậy, hãy suy nghĩ trước để giúp bạn tiết kiệm cả thời gian và tiền bạ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 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

Chia sẻ ngay bây giờ:

Được đóng lại.