4 načina da isključite brojeve u vašem Word dokumentu iz statistike broja riječi

U današnjem članku ćemo vam predstaviti 4 učinkovita načina da isključite brojeve u vašem Word dokumentu iz statistike broja riječi.

Generalno, Word broji sve vrste tekstova, bilo da se radi o riječima ili brojevima. Ali, s vremena na vrijeme, vjerovatno ćemo prebrojati riječi isključujući određene elemente, kao što su brojevi. Stoga nam je drago da vam pokažemo 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: Izbrišite sve brojeve

1. Prvo otvorite datoteku za kopiranje i kliknite na padajuću tipku na “Pronađi” u kartici “Početna”.
2. Drugo, odaberite “Napredno traženje” da otvorite dijaloški okvir “Pronađi i zamijeni”.
3. Zatim unesite “^#” u tekstualni okvir “Pronađi šta”. Ako se ne možete sjetiti ovog niza, stavite kursor na polje za tekst „Pronađi šta“ i kliknite na „Više“, a zatim kliknite na dugme „Posebno“.
4. Zatim odaberite "Bilo koja cifra".
5. Sada kliknite na “Pronađi u” i odaberite “Glavni dokument”.
6. Vidjet ćete da su svi brojevi u odabiru.
7. Pritisnite “Delete”.
8. Kada brojevi nestanu, možete primijetiti da Word sada neke znakove interpunkcije smatra riječima. Dakle, morate ukloniti i sve znakove interpunkcije. Ponovo otvorite okvir "Pronađi i zamijeni". Ovaj put unesite “[,.;:'”””/\!\*\?\\]” (bez navodnika) u tekstualnom okviru „Pronađi šta“.
9. I zapamtite da potvrdite okvir "Koristi zamjenske znakove".
10. Ponovite korak 5 da pronađete sve znakove interpunkcije.
11. Izbriši ih.
12. Na kraju, kliknite na “Review”, a zatim na “Word Count” da vidite ukupan broj tekstova.

Metoda 2: Formatirajte sve brojeve kao skrivene tekstove

Word ne uključuje skrivene tekstove u broju riječi, tako da možete odabrati da postavite brojeve u skrivenom formatiranju.

1. Prije svega, ponovite prvih 6 koraka u metodi.
2. Umjesto brisanja odabranih brojeva, pritisnite “Ctrl+ D” da otvorite okvir “Font”.
3. Označite polje “Skriveno” i kliknite na “OK”.
4. Zatim ponovite korak od 8 do 9 da pronađete sve interpunkcijske znakove.
5. Slično, slijedite korake 2 i 3 da formatirate znakove interpunkcije kao skriveni tekst.
6. Na kraju, provjerite ukupan broj riječi.

Metoda 3: Pokrenite Word makro

Sljedeći makro će automatski izvršiti gore navedene korake i vratiti vam okvir sa porukom, koji sadrži ukupan broj riječi isključujući brojeve.

1. Za početak, pritisnite “Alt+ F11” u Wordu da otvorite VBA editor.
2. Zatim kliknite na “Normalno” u lijevoj koloni.
3. Zatim kliknite na karticu "Insert" i odaberite "Module".
4. 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

5. Kliknite na “Run”.

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 tabelama iz broja riječi

Ovdje je posebna potreba da se brojevi u tabelama izuzmu iz broja riječi. Rješenje je pokrenuti makro.

1. Instalirajte i pokrenite makro kao što je gore navedeno u metodi 3.
2. Zatim zamijenite taj makro sa ovim:

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

Pojaviće se okvir za poruke poput ovog:

Misli unaprijed

S obzirom na činjenicu da Word nije potpuno siguran, 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. Možda će trebati samo nekoliko minuta za izradu sigurnosne kopije dokumenta, ali sati, pa čak i dani za oporavak... corrupt docx. Zato razmislite unaprijed kako biste uštedjeli i vrijeme i novac.

Uvod za autora:

Vera Chen je stručnjak za oporavak podataka DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući Excel fix i pdf popravak softverskih proizvoda. Za više informacija posjetite www.datanumen.com