4 Mga Paraan upang maibukod ang Mga Numero sa iyong Dokumento ng Salita mula sa Word Count Statistics

Mga Solusyon sa Salita Setyembre 28, 2025

Sa artikulong ngayon, ipapakita namin sa iyo ang 4 na mabisang paraan upang maibukod ang mga numero sa iyong dokumento ng Word mula sa mga istatistika ng bilang ng salita.

Sa pangkalahatan, binibilang ng Word ang lahat ng uri ng mga teksto, maging mga salita o numero. Ngunit, ngayon at pagkatapos, malamang na gumawa tayo ng bilang ng salita na hindi kasama ang ilang mga elemento, tulad ng mga numero. Samakatuwid, ikinalulugod naming ipakita sa iyo ang 4 na pamamaraan upang matugunan ang naturang pangangailangan.

Bago ang lahat, dapat kang gumawa ng backup ng iyong target na dokumento at gamitin ang lahat ng mga pamamaraan sa ibaba para sa iyong kopya.

Paraan 1: Tanggalin ang Lahat ng Mga Numero

Una, buksan ang file ng kopya at i-click ang drop-down na pindutan sa "Hanapin" sa ilalim ng tab na "Home".
Pangalawa, piliin ang "Advanced na Paghahanap" upang buksan ang "Maghanap at Palitan" na kahon ng dayalogo.
Susunod na ipasok ang "^ #" sa text box na "Hanapin kung ano". Kung hindi mo matandaan ang string na ito, ilagay ang cursor sa "Hanapin kung ano" ang kahon ng teksto at i-click ang "Higit Pa" pagkatapos ay i-click ang "Espesyal" na pindutan.
Pagkatapos ay piliin ang "Anumang Digit".
Ngayon i-click ang "Hanapin Sa" at piliin ang "Pangunahing Dokumento".
Mahahanap mo ang lahat ng mga numero ay napili.
Pindutin ang "Tanggalin".
Kapag nawala ang mga numero, mapapansin mong isinasaalang-alang ng Salita ang ilang mga bantas bilang mga salita ngayon. Kaya kailangan mong alisin ang lahat ng mga bantas din. Buksan muli ang kahon na "Hanapin at Palitan". Ang input sa oras na ito “[,.;: '”” ”/ \! \ * \? \\]”(Walang mga panipi) sa text box na" Hanapin kung ano ".
At tandaan na lagyan ng tsek ang kahon na "Gumamit ng mga wildcard".
Ulitin ang hakbang 5 upang makita ang lahat ng mga bantas.
Tanggalin ang mga ito.
Panghuli, i-click ang "Suriin" pagkatapos ang "Word Count" upang matingnan ang kabuuang bilang ng mga teksto.

Paraan 2: I-format ang Lahat ng Mga Numero bilang Mga Nakatagong Texto

Hindi kasama sa Word ang mga nakatagong teksto sa bilang ng salita, kaya maaari kang pumili upang magtakda ng mga numero sa nakatagong pag-format.

Una sa lahat, ulitin muna ang 6 na hakbang sa pamamaraan.
Sa halip na tanggalin ang mga napiling numero, pindutin ang "Ctrl + D" upang buksan ang kahon na "Font".
Lagyan ng tsek ang kahon na "Nakatago" at i-click ang "OK".
Susunod na ulitin mula sa hakbang 8 hanggang 9 upang hanapin ang lahat ng mga bantas.
Katulad nito, sundin ang hakbang 2 at 3 upang mai-format ang mga bantas bilang mga nakatagong teksto.
Panghuli, suriin ang kabuuang mga salita.

Paraan 3: Patakbuhin ang Word Macro

Awtomatikong gagawin ng sumusunod na macro ang mga hakbang sa itaas at ibabalik sa iyo ang isang kahon ng mensahe, na naglalaman ng kabuuang bilang ng mga salita na hindi kasama ang mga numero.

Upang magsimula, pindutin ang "Alt + F11" sa Word upang buksan ang VBA editor.
Susunod na pag-click sa “Normal 'sa kaliwang haligi.
Pagkatapos ay i-click ang tab na "Ipasok" at piliin ang "Modyul".
I-double click sa module upang buksan ito at i-paste ang mga bellowing code:

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

I-click ang "Run".

Makakatanggap ka ng isang kahon ng mensahe, na nagsasabi sa iyo kung gaano karaming mga salita doon sa iyong dokumento, tulad ng sa ibaba:

Paraan 4: Ibukod ang Mga Numero sa Mga Talahanayan mula sa Word Count

Narito ang isang partikular na pangangailangan na ibukod ang mga numero sa mga talahanayan mula sa bilang ng salita. Ang solusyon ay upang magpatakbo ng isang macro.

Mag-install at magpatakbo ng isang macro tulad ng nakasaad sa itaas sa pamamaraan 3.
Pagkatapos palitan ang macro na ito sa isang ito:

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

Magkakaroon ng isang kahon ng mensahe tulad nito:

Mag-isip nang maaga

Dahil hindi sigurado ang Word, dapat kang gumawa ng mga hakbang sa pag-iwas bago mahuli ang lahat. Ang pinakakapaki-pakinabang na paraan ay ang pag-backup ng iyong mga dokumento at i-backup ang mga ito hangga't maaari. Maaaring ilang minuto lang ang kailangan para i-backup ang isang dokumento ngunit ilang oras pa nga ay araw bago ma-recover. sira na docx. Kaya mag-isip nang maaga upang makatipid sa iyo parehong oras at pera.

Panimula ng May-akda:

Si Vera Chen ay isang dalubhasa sa pagbawi ng data sa DataNumen, Inc., na pinuno ng mundo sa mga teknolohiya sa pagbawi ng data, kasama ang Pag-ayos ng Excel at pdf pagkumpuni ng mga produktong software. Para sa karagdagang impormasyon pagbisita www.datanumen. Sa