4 būdai, kaip neįtraukti skaičių jūsų Word dokumente iš žodžių skaičiaus statistikos

Žodžių sprendimai Rugsėjis 28, 2025

Šiandienos straipsnyje pateiksime 4 veiksmingus būdus, kaip neįtraukti skaičių jūsų Word dokumente iš žodžių skaičiaus statistikos.

Paprastai „Word“ skaičiuoja visų tipų tekstus, nesvarbu, ar tai būtų žodžiai, ar skaičiai. Tačiau kartais mes tikriausiai suskaičiuosime žodžius, neįtraukdami tam tikrų elementų, pvz., skaičių. Todėl džiaugiamės galėdami parodyti jums 4 būdus, kaip įvykdyti tokį reikalavimą.

Visų pirma, turite sukurti tikslinio dokumento atsarginę kopiją ir atlikti visus toliau nurodytus veiksmus su savo kopija.

1 būdas: ištrinkite visus numerius

Pirmiausia atidarykite kopijos failą ir spustelėkite išskleidžiamąjį mygtuką „Rasti“, esantį skirtuke „Pagrindinis“.
Antra, pasirinkite „Išplėstinė paieška“, kad atidarytumėte dialogo langą „Rasti ir pakeisti“.
Tada teksto laukelyje „Rasti ką“ įveskite „^#“. Jei neprisimenate šios eilutės, užveskite žymeklį ant teksto laukelio „Rasti ką“ ir spustelėkite „Daugiau“, tada spustelėkite mygtuką „Ypatingas“.
Tada pasirinkite „Bet kuris skaitmuo“.
Dabar spustelėkite „Rasti“ ir pasirinkite „Pagrindinis dokumentas“.
Pamatysite, kad visi numeriai yra pasirinkti.
Paspauskite „Ištrinti“.
Kai nebeliks skaičių, galite pastebėti, kad Word kai kuriuos skyrybos ženklus dabar laiko žodžiais. Taigi jūs taip pat turite pašalinti visus skyrybos ženklus. Dar kartą atidarykite langelį „Rasti ir pakeisti“. Šį kartą įveskite "[,.;:'"""/\!\*\?\\]“ (be kabučių) teksto laukelyje „Rasti ką“.
Ir nepamirškite pažymėti laukelio „Naudoti pakaitos simbolius“.
Pakartokite 5 veiksmą, kad surastumėte visus skyrybos ženklus.
Ištrinkite juos.
Galiausiai spustelėkite „Peržiūrėti“, tada „Žodžių skaičius“, kad peržiūrėtumėte bendrą tekstų skaičių.

2 būdas: formatuokite visus skaičius kaip paslėptus tekstus

„Word“ neįtraukia paslėptų tekstų į žodžių skaičių, todėl galite pasirinkti paslėpto formatavimo skaičius.

Pirmiausia pakartokite pirmuosius 6 metodo veiksmus.
Užuot ištrynę pasirinktus skaičius, paspauskite „Ctrl+D“, kad atidarytumėte laukelį „Šriftas“.
Pažymėkite langelį „Paslėptas“ ir spustelėkite „Gerai“.
Toliau pakartokite nuo 8 iki 9 žingsnių, kad surastumėte visus skyrybos ženklus.
Panašiai atlikite 2 ir 3 veiksmus, kad formatuotumėte skyrybos ženklus kaip paslėptus tekstus.
Galiausiai patikrinkite bendrą žodžių skaičių.

3 būdas: paleiskite Word makrokomandą

Ši makrokomanda automatiškai atliks aukščiau nurodytus veiksmus ir grąžins jums pranešimo laukelį, kuriame bus bendras žodžių skaičius, išskyrus skaičius.

Norėdami pradėti, paspauskite „Alt + F11“ „Word“, kad atidarytumėte VBA redaktorių.
Tada kairiajame stulpelyje spustelėkite „Normalus“.
Tada spustelėkite skirtuką „Įterpti“ ir pasirinkite „Modulis“.
Dukart spustelėkite modulį, kad jį atidarytumėte ir įklijuokite šiuos kodus:

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

Spustelėkite „Vykdyti“.

Gausite pranešimų laukelį, kuriame bus nurodyta, kiek žodžių yra jūsų dokumente, pvz., žemiau:

4 būdas: neįtraukite skaičių lentelėse iš žodžių skaičiaus

Čia ypač reikia neįtraukti skaičių lentelėse iš žodžių skaičiaus. Sprendimas yra paleisti makrokomandą.

Įdiekite ir paleiskite makrokomandą, kaip nurodyta 3 metode.
Tada pakeiskite šią makrokomandą šia:

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

Bus toks pranešimų laukelis:

Galvoti į priekį

Kadangi „Word“ nėra patikimas įrankis, turite imtis prevencinių priemonių, kol dar nevėlu. Naudingiausias būdas – sukurti dokumentų atsargines kopijas ir daryti jas kuo įmanoma atsargines kopijas. Dokumento atsarginės kopijos sukūrimas gali užtrukti vos kelias minutes, o jo atkūrimas – valandas ar net dienas. sugadintas docx. Taigi pagalvokite iš anksto, kad sutaupytumėte laiko ir pinigų.

Autoriaus įvadas:

Vera Chen yra duomenų atkūrimo ekspertė DataNumen, Inc., kuri yra pasaulyje duomenų atkūrimo technologijų lyderė, įskaitant Excel taisymas bei pdf programinės įrangos gaminių taisymas. Norėdami gauti daugiau informacijos, apsilankykite WWW.datanumen.com