U današnjem članku ćemo vam predstaviti 4 učinkovita načina za isključivanje brojeva u vašem Word dokumentu iz statistike broja riječi.
Općenito, Word broji sve vrste tekstova, bilo da su riječi ili brojevi. No, s vremena na vrijeme, vjerojatno ćemo brojati riječi isključujući određene elemente, kao što su brojevi. Stoga vam sa zadovoljstvom možemo pokazati 4 metode za ispunjavanje takvog zahtjeva.
Prije svega, morate napraviti sigurnosnu kopiju ciljnog dokumenta i primijeniti sve dolje navedene metode na svojoj kopiji.
Metoda 1: Brisanje svih brojeva
- Prvo otvorite kopiju datoteke i kliknite padajući gumb na "Traži" pod karticom "Početna".
- Drugo, odaberite "Napredno traženje" da biste otvorili dijaloški okvir "Pronađi i zamijeni".
- Zatim unesite “^#” u tekstni okvir “Pronađi što”. Ako se ne možete sjetiti ovog niza, postavite pokazivač na tekstni okvir "Pronađi što" i kliknite "Više", a zatim kliknite gumb "Posebno".
- Zatim odaberite "Bilo koja znamenka".
- Sada kliknite "Pronađi u" i odaberite "Glavni dokument".
- Vidjet ćete da su svi brojevi u izboru.
- Pritisnite “Izbriši”.
- Nakon što brojevi nestanu, možete primijetiti da Word sada neke interpunkcijske znakove smatra riječima. Dakle, trebate ukloniti i sve interpunkcijske znakove. Ponovno otvorite okvir "Pronađi i zamijeni". Ovaj put unos “[,.;:'”””/\!\*\?\\]” (bez navodnika) u tekstnom okviru „Pronađi što”.
- I ne zaboravite označiti okvir "Koristi zamjenske znakove".
- Ponovite korak 5 da pronađete sve interpunkcijske znakove.
- Izbriši ih.
- Na kraju, kliknite na "Pregled", a zatim na "Broj riječi" za pregled ukupnog broja tekstova.
Metoda 2: Formatirajte sve brojeve kao skrivene tekstove
Word ne uključuje skrivene tekstove u broju riječi, tako da možete odabrati postavljanje brojeva u skrivenom oblikovanju.
- Prije svega, ponovite prvih 6 koraka u metodi.
- Umjesto brisanja odabranih brojeva, pritisnite “Ctrl+D” da biste otvorili okvir “Font”.
- Označite okvir "Skriveno" i kliknite "U redu".
- Zatim ponovite od koraka 8 do 9 da pronađete sve interpunkcijske znakove.
- Slično, slijedite korake 2 i 3 da biste formatirali interpunkcijske znakove kao skrivene tekstove.
- Na kraju provjerite ukupan broj riječi.
Metoda 3: Pokrenite Word Macro
Sljedeća makronaredba automatski će izvršiti gornje korake i vratiti vam okvir s porukom koji sadrži ukupan broj riječi isključujući brojeve.
- Za početak pritisnite “Alt+ F11” u Wordu da biste otvorili VBA editor.
- Zatim kliknite "Normalno" u lijevom stupcu.
- Zatim kliknite karticu "Umetni" i odaberite "Modul".
- Dvaput kliknite na modul da ga otvorite i zalijepite sljedeće kodove:
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
- Pritisnite "Pokreni".
Primit ćete okvir s porukom koji će vam reći koliko riječi ima u vašem dokumentu, kao što je dolje:
Metoda 4: Isključite brojeve u tablicama iz brojanja riječi
Ovdje je posebna potreba za isključivanjem brojeva u tablicama iz brojanja riječi. Rješenje je pokrenuti makro.
- Instalirajte i pokrenite makro kao što je gore navedeno u metodi 3.
- Zatim zamijenite tu makronaredbu ovom:
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
Pojavit će se okvir s porukom poput ovoga:
Misliti unaprijed
S obzirom na činjenicu da Word nije siguran za sve, morate poduzeti preventivne mjere prije nego što bude prekasno. Najkorisniji način je napraviti sigurnosnu kopiju dokumenata i to što je više moguće. Sigurnosna kopija dokumenta može potrajati samo nekoliko minuta, ali oporavak može potrajati satima, čak i danima. pokvareni docx. Zato razmislite unaprijed kako biste uštedjeli vrijeme i novac.
Uvod za autora:
Vera Chen stručnjakinja je za oporavak podataka u DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući Excel popravak i pdf popraviti softverske proizvode. Za više informacija posjetite www.datanumen.com