4 načini za izključitev številk v Wordovem dokumentu iz statistike števila besed

Besedne rešitve September 28, 2025

V današnjem članku vam bomo predstavili 4 učinkovite načine za izključitev številk v Wordovem dokumentu iz statistike števila besed.

Na splošno Word šteje vse vrste besedil, pa naj gre za besede ali številke. Toda tu in tam bomo verjetno naredili štetje besed brez nekaterih elementov, kot so številke. Zato vam z veseljem pokažemo 4 metode za izpolnitev te zahteve.

Pred vsem, morate narediti varnostno kopijo ciljnega dokumenta in na svoji kopiji uporabiti vse spodnje metode.

1. način: Izbrišite vse številke

Najprej odprite kopijo datoteke in kliknite spustni gumb »Najdi« pod zavihkom »Domov«.
Drugič, izberite »Napredno iskanje«, da odprete pogovorno okno »Najdi in zamenjaj«.
Nato v besedilno polje »Najdi kaj« vnesite »^#«. Če se tega niza ne morete spomniti, postavite kazalec na besedilno polje »Najdi kaj« in kliknite »Več«, nato kliknite gumb »Posebno«.
Nato izberite »Any Digit«.
Zdaj kliknite »Najdi v« in izberite »Glavni dokument«.
Ugotovili boste, da so vse številke v izboru.
Pritisnite “Delete”.
Ko številk ni več, lahko opazite, da Word zdaj obravnava nekatera ločila kot besede. Zato morate odstraniti tudi vsa ločila. Ponovno odprite polje »Najdi in zamenjaj«. Tokratni vnos "[,.;:'”””/\!\*\?\\]« (brez narekovajev) v besedilnem polju »Najdi kaj«.
In ne pozabite potrditi polja »Uporabi nadomestne znake«.
Ponovite korak 5, da poiščete vsa ločila.
Izbriši jih.
Nazadnje kliknite »Pregled« in nato »Štetje besed«, da si ogledate skupno število besedil.

2. način: Oblikujte vsa števila kot skrita besedila

Word ne vključuje skritih besedil v štetje besed, zato lahko izberete, da nastavite številke v skritem oblikovanju.

Najprej ponovite prvih 6 korakov v metodi.
Namesto da izbrišete izbrane številke, pritisnite »Ctrl+ D«, da odprete polje »Pisava«.
Potrdite polje »Skrito« in kliknite »V redu«.
Nato ponovite korak od 8 do 9, da poiščete vsa ločila.
Podobno sledite 2. in 3. koraku, da ločila oblikujete kot skrita besedila.
Na koncu preverite skupno število besed.

3. način: zaženite Wordov makro

Naslednji makro bo samodejno izvedel zgornje korake in vam vrnil sporočilo, ki vsebuje skupno število besed brez številk.

Za začetek pritisnite »Alt + F11« v Wordu, da odprete urejevalnik VBA.
Nato v levem stolpcu kliknite »Normalno«.
Nato kliknite zavihek "Vstavi" in izberite "Modul".
Dvokliknite na modul, da ga odprete in prilepite spodnje kode:

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

Kliknite »Zaženi«.

Prejeli boste polje s sporočilom, ki vam bo povedalo, koliko besed je v vašem dokumentu, na primer spodaj:

4. način: iz štetja besed izključite številke v tabelah

Tukaj je posebna potreba po izključitvi številk v tabelah iz števila besed. Rešitev je zagon makra.

Namestite in zaženite makro, kot je navedeno zgoraj v 3. metodi.
Nato zamenjajte ta makro s tem:

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

Prikazalo se bo sporočilo, kot je to:

Pomisli naprej

Glede na to, da Word ni popolnoma zanesljiv, morate sprejeti preventivne ukrepe, preden bo prepozno. Najbolj uporaben način je, da varnostno kopirate dokumente in jih čim bolj varnostno kopirate. Varnostno kopiranje dokumenta lahko traja le nekaj minut, obnovitev pa lahko traja ure ali celo dni. pokvarjen docx. Zato premislite vnaprej, da boste prihranili čas in denar.

Uvod avtorja:

Vera Chen je strokovnjakinja za obnovitev podatkov v DataNumen, Inc., ki je vodilna na svetu na področju tehnologij za obnovitev podatkov, vključno z Popravek v Excelu in pdf popravilo programskih izdelkov. Za več informacij obiščite www.datanumen.com