4 spôsoby, ako vylúčiť čísla v dokumente Word zo štatistík počtu slov

Wordové riešenia September 28, 2025
Zdieľať teraz:

V dnešnom článku vám predstavíme 4 efektívne spôsoby, ako vylúčiť čísla v dokumente Word zo štatistík počtu slov.

Word všeobecne počíta všetky typy textov, či už sú to slová alebo čísla. Ale tu a tam pravdepodobne urobíme počet slov s vylúčením určitých prvkov, ako sú napríklad čísla. Preto sme radi, že vám môžeme predstaviť 4 spôsoby, ako takúto požiadavku splniť.Vylúčte čísla v dokumente Word zo štatistík počtu slov

Predtým si musíte urobiť zálohu cieľového dokumentu a použiť na nej všetky nižšie uvedené metódy.

Metóda 1: Odstránenie všetkých čísel

  1. Najskôr otvorte kopírovací súbor a kliknite na rozbaľovacie tlačidlo „Nájsť“ na karte „Domov“.
  2. Potom vyberte možnosť „Rozšírené vyhľadávanie“ a otvorte dialógové okno „Nájsť a nahradiť“.Kliknite na „Domov“ -> Kliknite na „Nájsť“ -> Vyberte „Pokročilé vyhľadávanie“
  3. Ďalej do textového poľa „Čo nájdete“ zadajte „^ #“. Ak si tento reťazec nepamätáte, umiestnite kurzor na textové pole „Nájsť čo“ a kliknite na „Viac“ a potom na tlačidlo „Špeciálne“.
  4. Potom zvoľte „Any Digit“.
  5. Teraz kliknite na „Nájsť v“ a vyberte „Hlavný dokument“.
  6. Nájdete všetky čísla, ktoré sú vo výbere.Do textového poľa „Nájsť čo“ zadajte „^ #“ -> kliknite na „Nájsť v“ -> zvoľte „Hlavný dokument“.
  7. Stlačte tlačidlo „Odstrániť“.
  8. Keď čísla zmiznú, môžete si všimnúť, že Word už považuje niektoré interpunkčné znamienka za slová. Musíte teda tiež odstrániť všetky interpunkčné znamienka. Znova otvorte políčko „Nájsť a nahradiť“. Tentokrát vstup „[,.;: '' "" / \! \ * \? \\]“(Bez úvodzoviek) v textovom poli„ Čo nájdete “.
  9. Nezabudnite začiarknuť políčko „Použiť zástupné znaky“.
  10. Opakovaním kroku 5 vyhľadajte všetky interpunkčné znamienka.Zadajte reťazec do textového poľa „Nájsť čo“ -> kliknite na „Nájsť v“ -> zvoľte „Hlavný dokument“.
  11. Vymažte ich.
  12. Nakoniec kliknite na „Skontrolovať“ a potom na „Počet slov“, aby ste zobrazili celkový počet textov.Kliknite na „Skontrolovať“ -> kliknite na „Počet slov“

Metóda 2: Formátovanie všetkých čísel ako skrytých textov

Program Word nezahŕňa skryté texty do počtu slov, takže môžete zvoliť nastavenie čísel v skrytom formáte.

  1. Najskôr zopakujte prvých 6 krokov postupu.
  2. Namiesto odstránenia vybraných čísel stlačte „Ctrl + D“ a otvorte pole „Písmo“.
  3. Začiarknite políčko „Skryté“ a kliknite na tlačidlo „OK“.Začiarknite políčko Skryté -> kliknite na tlačidlo OK
  4. Ďalej opakujte kroky 8 až 9, aby ste našli všetky interpunkčné znamienka.
  5. Podobne postupujte podľa krokov 2 a 3 a naformátujte interpunkčné znamienka ako skryté texty.
  6. Nakoniec skontrolujte celkový počet slov.

Metóda 3: Spustenie makra programu Word

Nasledujúce makro vykoná vyššie uvedené kroky automaticky a vráti vám okno so správou, ktoré obsahuje celkový počet slov bez čísel.

  1. Na začiatok stlačte vo formáte Word kombináciu klávesov „Alt + F11“ a otvorte editor VBA.
  2. Ďalej kliknite na „Normálny“ v ľavom stĺpci.
  3. Potom kliknite na kartu „Vložiť“ a zvoľte „Modul“.Kliknite na „Normálny“ -> Kliknite na „Vložiť“ -> Kliknite na „Modul“
  4. Dvojitým kliknutím otvorte modul a vložte nasledujúce kódy:
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. Kliknite na „Spustiť“.Prilepiť kódy-> kliknite na tlačidlo „Spustiť“

Zobrazí sa okno so správou, ktoré vám povie, koľko slov sa v dokumente nachádza, napríklad nižšie:Pole s výsledkami

Metóda 4: Vylúčenie čísel v tabuľkách z počtu slov

Tu je obzvlášť potrebné vylúčiť čísla v tabuľkách z počtu slov. Riešením je spustenie makra.

  1. Nainštalujte a spustite makro, ako je uvedené vyššie v metóde 3.
  2. Potom nahraďte toto makro týmto:
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

K dispozícii bude okno so správou, napríklad toto:Počet slov okrem čísel v tabuľkách

Myslieť dopredu

Vzhľadom na to, že Word nie je úplne spoľahlivý, musíte prijať preventívne opatrenia skôr, ako bude príliš neskoro. Najužitočnejším spôsobom je zálohovať si dokumenty a zálohovať ich čo najviac. Zálohovanie dokumentu môže trvať len niekoľko minút, ale obnova môže trvať hodiny, ba dokonca dni. skorumpovaný docx. Myslite teda dopredu, aby ste ušetrili čas aj peniaze.

Úvod autora:

Vera Chen je expertka na obnovu dát v DataNumen, Inc., ktorá je svetovým lídrom v oblasti technológií obnovy dát, vrátane Oprava programu Excel a pdf oprava softvérových produktov. Pre viac informácií navštívte www.datanumen. S

Zdieľať teraz:

Komentáre sú uzavreté.