4 veidi, kā izslēgt skaitļus savā Word dokumentā no vārdu skaita statistikas

Vārdu risinājumi Septembris 28, 2025

Šodienas rakstā mēs jums piedāvāsim 4 efektīvus veidus, kā izslēgt skaitļus jūsu Word dokumentā no vārdu skaita statistikas.

Parasti Word skaita visu veidu tekstus, vai tie būtu vārdi vai skaitļi. Bet šad un tad mēs, visticamāk, veiksim vārdu skaitīšanu, izslēdzot noteiktus elementus, piemēram, skaitļus. Tāpēc mēs priecājamies jums parādīt 4 metodes, kā izpildīt šādu prasību.

Vispirms jums ir jāveic rezerves kopija tariegūstiet dokumentu un izmantojiet visas metodes, kas zemāk redzamas jūsu kopijā.

1. metode: dzēsiet visus numurus

Pirmkārt, atveriet faila kopiju un cilnē Sākums noklikšķiniet uz nolaižamās pogas “Atrast”.
Otrkārt, izvēlieties “Advanced Find”, lai atvērtu dialoglodziņu “Find and Replace”.
Pēc tam tekstlodziņā “Atrodi” ievadiet “^ #”. Ja jūs neatceraties šo virkni, ievietojiet kursoru tekstlodziņā “Atrast ko” un noklikšķiniet uz “Vēl”, pēc tam noklikšķiniet uz pogas “Īpašais”.
Pēc tam atlasiet “Jebkurš cipars”.
Tagad noklikšķiniet uz “Atrast” un izvēlieties “Galvenais dokuments”.
Jūs atradīsit, ka visi numuri ir atlasē.
Nospiediet “Dzēst”.
Kad cipari vairs nebūs, jūs varat pamanīt, ka Word tagad dažas pieturzīmes uzskata par vārdiem. Tāpēc jums ir jānoņem arī visas pieturzīmes. Vēlreiz atveriet lodziņu “Atrast un aizstāt”. Šī laika ievade “[,.;: '”” ”/ \! \ * \? \\]”(Bez pēdiņām) tekstlodziņā“ Atrast ko ”.
Atcerieties atzīmēt izvēles rūtiņu “Izmantot aizstājējzīmes”.
Atkārtojiet 5. darbību, lai atrastu visas pieturzīmes.
Dzēsiet tos.
Visbeidzot, noklikšķiniet uz “Pārskatīt”, pēc tam uz “Vārdu skaits”, lai skatītu kopējo tekstu skaitu.

2. metode: formatējiet visus skaitļus kā slēptos tekstus

Vārdu skaitā Word nav iekļauti slēptie teksti, tāpēc varat izvēlēties iestatīt numurus slēptā formatējumā.

Pirmkārt, atkārtojiet metodes 6 pirmās darbības.
Tā vietā, lai izdzēstu atlasītos numurus, nospiediet “Ctrl + D”, lai atvērtu lodziņu “Fonts”.
Atzīmējiet izvēles rūtiņu “Slēpts” un noklikšķiniet uz Labi.
Pēc tam atkārtojiet no 8. līdz 9. darbībai, lai atrastu visas pieturzīmes.
Līdzīgi izpildiet 2. un 3. darbību, lai pieturzīmes formatētu kā slēptus tekstus.
Visbeidzot, pārbaudiet vārdu kopskaitu.

3. metode: palaidiet Word Macro

Šis makro automātiski veiks iepriekš minētās darbības un atgriezīs ziņojumu lodziņu, kurā būs kopējais vārdu skaits, izņemot skaitļus.

Vispirms nospiediet taustiņu “Alt + F11” programmā Word, lai atvērtu VBA redaktoru.
Pēc tam kreisajā kolonnā noklikšķiniet uz “Normal”.
Pēc tam noklikšķiniet uz cilnes “Ievietot” un izvēlieties “Modulis”.
Veiciet dubultklikšķi uz moduļa, lai to atvērtu, un ielīmējiet zvana 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

Noklikšķiniet uz “Run”.

Jūs saņemsit ziņojumu lodziņu, kurā būs norādīts, cik daudz vārdu jūsu dokumentā ir, piemēram, zemāk:

4. metode: Izslēdziet skaitļus tabulās no vārdu skaita

Šeit ir īpaši jāizslēdz skaitļi tabulās no vārdu skaita. Risinājums ir palaist makro.

Instalējiet un palaidiet makro, kā norādīts iepriekš 3. metodē.
Pēc tam aizstājiet šo makro ar šo:

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

Būs tāds ziņojumu lodziņš kā šis:

Padomā uz priekšu

Ņemot vērā to, ka Word nav drošs, jums ir jāveic preventīvi pasākumi, pirms viss ir par vēlu. Most noderīgs veids ir dublēt savus dokumentus un pēc iespējas dublēt tos. Dokumenta dublēšana var aizņemt tikai dažas minūtes, bet a korumpēts docx. Tāpēc padomājiet uz priekšu, lai ietaupītu gan laiku, gan naudu.

Autora ievads:

Vera Čena ir datu atkopšanas eksperte DataNumen, Inc., kas ir pasaules līderis datu atkopšanas tehnoloģiju, tostarp Excel labojums un pdf programmatūras produktu labošana. Lai iegūtu vairāk informācijas, apmeklējiet vietni www.datanumen. Ar