4 võimalust oma Wordi dokumendis olevate numbrite väljajätmiseks sõnade loenduse statistikast

Sõnalahendused September 28, 2025

Tänases artiklis tutvustame teile 4 tõhusat viisi, kuidas Wordi dokumendis olevaid numbreid sõnade arvu statistikast välja jätta.

Üldiselt loeb Word igat tüüpi tekste, olgu need siis sõnad või numbrid. Kuid aeg-ajalt loeme sõnu tõenäoliselt välja, välistades teatud elemendid, näiteks numbrid. Seetõttu on meil hea meel näidata teile 4 meetodit sellise nõude täitmiseks.Välistage oma Wordi dokumendi numbrid sõnaloenduse statistikast

Ennekõike peate tegema sihtdokumendist varukoopia ja kasutama oma koopia peal kõiki alltoodud meetodeid.

1. meetod: kustutage kõik numbrid

  1. Esiteks avage koopiafail ja klõpsake vahekaardi "Kodu" all "Otsi" rippmenüü nuppu.
  2. Teiseks valige dialoogiboksi "Otsi ja asenda" avamiseks "Täpsem otsing".Klõpsake "Kodu" -> "Otsi" -> valige "Täpsem otsing"
  3. Järgmisena sisestage tekstiväljale „Otsi mis” „^#”. Kui te ei mäleta seda stringi, viige kursor tekstiväljale "Leia mida" ja klõpsake "Veel", seejärel klõpsake nuppu "Eriline".
  4. Seejärel valige "Iga number".
  5. Nüüd klõpsake "Otsi" ja valige "Põhidokument".
  6. Näete, et kõik numbrid on valikus.Sisestage "^#" tekstikasti "Leia mida" -> klõpsake "Otsi" -> valige "Põhidokument"
  7. Vajutage nuppu "Kustuta".
  8. Kui numbrid on kadunud, võite märgata, et Word peab mõnda kirjavahemärki nüüd sõnadeks. Seega peate eemaldama ka kõik kirjavahemärgid. Avage uuesti kast "Otsi ja asenda". Seekord sisestage "[,.;:'"""/\!\*\?\\]” (ilma jutumärkideta) tekstikastis „Otsi mida”.
  9. Ärge unustage märkida kasti "Kasuta metamärke".
  10. Kõigi kirjavahemärkide leidmiseks korrake 5. sammu.Sisestage string tekstikasti "Leia mida" -> klõpsake "Otsi" -> valige "Põhidokument"
  11. Kustutage need.
  12. Lõpuks klõpsake tekstide koguarvu vaatamiseks nuppu "Ülevaatamine" ja seejärel "Sõnade arv".Klõpsake "Ülevaatamine" -> Klõpsake "Sõnade arv"

2. meetod: vormindage kõik numbrid peidetud tekstidena

Word ei hõlma sõnade arvu peidetud tekste, seega saate määrata numbrid peidetud vormingus.

  1. Kõigepealt korrake meetodi 6 esimest sammu.
  2. Valitud numbrite kustutamise asemel vajutage kasti "Font" avamiseks klahvikombinatsiooni Ctrl+D.
  3. Märkige ruut "Peidetud" ja klõpsake "OK".Märkige ruut "Peidetud" -> klõpsake "OK"
  4. Järgmisena korrake samme 8 kuni 9, et leida kõik kirjavahemärgid.
  5. Samamoodi järgige samme 2 ja 3, et vormindada kirjavahemärgid peidetud tekstidena.
  6. Lõpuks kontrollige sõnade koguarvu.

3. meetod: käivitage Wordi makro

Järgmine makro teeb ülaltoodud toimingud automaatselt ja tagastab teile sõnumikasti, mis sisaldab sõnade koguarvu ilma numbriteta.

  1. Alustuseks vajutage VBA redaktori avamiseks Wordis klahvikombinatsiooni Alt + F11.
  2. Järgmisena klõpsake vasakpoolses veerus "Tavaline".
  3. Seejärel klõpsake vahekaarti "Sisesta" ja valige "Moodul".Klõpsake "Tavaline" -> Klõpsake "Lisa" -> klõpsake "Moodul"
  4. Mooduli avamiseks topeltklõpsake ja kleepige allolevad koodid:
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. Klõpsake nuppu "Käivita".Kleebi koodid -> klõpsake "Käivita"

Saate sõnumikasti, mis ütleb teile, mitu sõna on teie dokumendis, näiteks allpool:Tulemuste kast

4. meetod: jätke tabelites olevad numbrid sõnade loendusest välja

Siin on eriti oluline sõnade arvust välja jätta tabelites olevad numbrid. Lahenduseks on makro käivitamine.

  1. Installige ja käivitage makro, nagu on kirjeldatud ülal meetodi 3 juures.
  2. Seejärel asendage see makro järgmisega:
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

Ilmub selline sõnumikast:Sõnade arv, välja arvatud tabelites olevad numbrid

Mõelge ette

Arvestades asjaolu, et Word pole lollikindel, peate enne kõigele liiga hiljaks jäämist võtma ennetavaid meetmeid. Kõige kasulikum viis on oma dokumentide varundamine ja võimalikult paljude dokumentide varundamine. Dokumendi varundamine võib võtta vaid minuteid, kuid taastamine võib võtta tunde või isegi päevi. rikutud docx. Nii et mõelge ette, et säästa nii aega kui ka raha.

Autori sissejuhatus:

Vera Chen on andmete taastamise ekspert DataNumen, Inc., mis on maailmas juhtiv andmete taastamise tehnoloogiate, sealhulgas Exceli parandus ja pdf tarkvaratooted. Lisateabe saamiseks külastage www.datanumenCom

Kommentaarid on suletud.