I dagens artikkel vil vi presentere deg 4 effektive måter å ekskludere tall i Word-dokumentet ditt fra ordtellingsstatistikk.
Vanligvis teller Word alle typer tekster, enten det er ord eller tall. Men nå og da vil vi sannsynligvis gjøre en ordtelling uten å ekskludere visse elementer, for eksempel tall. Derfor er vi glade for å vise deg 4 metoder for å oppfylle et slikt krav.
Først av alt må du ta en sikkerhetskopi av måldokumentet og bruke alle metodene nedenfor på kopien din.
Metode 1: Slett alle numre
- Først åpner du kopifilen og klikker på rullegardinknappen på "Finn" under fanen "Hjem".
- For det andre, velg "Avansert søk" for å åpne "Finn og erstatt" dialogboksen.
- Skriv deretter inn "^#" i tekstboksen "Finn hva". Hvis du ikke husker denne strengen, sett markøren på "Finn hva" tekstboksen og klikk "Mer" og klikk deretter "Spesial"-knappen.
- Velg deretter "Alle siffer".
- Klikk nå på "Finn inn" og velg "Hoveddokument".
- Du vil finne at alle tallene er i utvalg.
- Trykk på "Slett".
- Når tallene er borte, kan du legge merke til at Word anser noen skilletegn som ord nå. Så du må fjerne alle skilletegn også. Åpne "Finn og erstatt"-boksen igjen. Denne gangen input "[,.;:'”””/\!\*\?\\]" (uten anførselstegn) i tekstboksen "Finn hva".
- Og husk å krysse av for "Bruk jokertegn".
- Gjenta trinn 5 for å finne alle skilletegn.
- Slett dem.
- Til slutt klikker du på "Gjennomgå" og deretter "Ordtelling" for å se totalt antall tekster.
Metode 2: Formater alle tall som skjulte tekster
Word inkluderer ikke skjulte tekster i ordtellingen, så du kan velge å angi tall i skjult formatering.
- Først av alt, gjenta de første 6 trinnene i metoden.
- I stedet for å slette valgte tall, trykk "Ctrl + D" for å åpne "Font"-boksen.
- Merk av for "Skjult"-boksen og klikk "OK".
- Gjenta deretter fra trinn 8 til 9 for å finne alle skilletegn.
- Følg på samme måte trinn 2 og 3 for å formatere skilletegn som skjulte tekster.
- Til slutt, sjekk det totale antallet ord.
Metode 3: Kjør Word Macro
Følgende makro vil utføre trinnene ovenfor automatisk og returnere deg en meldingsboks som inneholder det totale antallet ord unntatt tall.
- Til å begynne med, trykk "Alt + F11" i Word for å åpne VBA-redigering.
- Klikk deretter på "Normal" i venstre kolonne.
- Klikk deretter på "Sett inn"-fanen og velg "Modul".
- Dobbeltklikk på modulen for å åpne den og lim inn kodene nedenfor:
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
- Klikk "Kjør".
Du vil motta en meldingsboks som forteller deg hvor mange ord det er i dokumentet ditt, for eksempel nedenfor:
Metode 4: Ekskluder tall i tabeller fra ordtelling
Her er et spesielt behov for å ekskludere tall i tabeller fra ordtelling. Løsningen er å kjøre en makro.
- Installer og kjør en makro som angitt ovenfor i metode 3.
- Bytt deretter ut den makroen med denne:
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
Det vil være en meldingsboks som dette:
Tenk fremover
Siden Word ikke er idiotsikkert, må du ta forebyggende tiltak før alt er for sent. Den mest nyttige måten er å sikkerhetskopiere dokumentene dine og sikkerhetskopiere dem så raskt som mulig. Det kan ta bare noen minutter å sikkerhetskopiere et dokument, men timer, til og med dager, å gjenopprette et. korrupt docx. Så tenk fremover for å spare både tid og penger.
Forfatterintroduksjon:
Vera Chen er en datagjenopprettingsekspert innen DataNumen, Inc., som er verdensledende innen datagjenopprettingsteknologier, inkludert Excel-fiks og pdf reparere programvareprodukter. For mer informasjon besøk www.datanumen. Med