2 Metode za izuzimanje tekstova tabela iz statistike broja riječi

U današnjem postu, drago nam je da s vama podijelimo dvije efikasne metode za isključivanje tekstova tabela iz statistike broja riječi.

Tabele se općenito koriste za čuvanje podataka. A tabele su naš najbolji prijatelj u ilustrovanju tačaka tokom rada na dokumentu. Tada može biti malo nezgodno kada se radi o brojanju riječi. Ponekad, samo trebamo dobiti broj riječi glavnog teksta, a ne sve podatke u tabelama. Ipak, svima je poznato da Word podrazumevano broji sve reči u vašem dokumentu. Iz tog razloga smo došli do efikasnih sredstava. Čitajte dalje da saznate više.

Metoda 1: Odaberite tabele ručno i sami izvršite matematiku

Ako se radi o kratkom dokumentu sa samo jednom ili dvije tabele, nije problem odabrati tabele jednu po jednu držeći pritisnutu tipku “Ctrl”. U ovom pristupu, ukupan broj u odabranim tabelama bit će vidljiv na statusnoj traci, kao što je dolje:

Kao što vidite, postoje 2 broja. Prvi se odnosi na broj riječi u odabranim tabelama, dok je drugi ukupan broj riječi u vašem dokumentu. Samo upotrijebite drugi broj za minus prvi da biste dobili rezultat.

Metod 2: Pokrenite VBA kodove

Kao što je gore pomenuto, metod 1 će biti zamoran ako imate veliki broj tabela u dokumentu. Odabrati ih ručno definitivno nije idealan način. Umjesto toga, preporučujemo vam makro koji će brojati sve riječi, ali ih isključiti u tabelama i naslovima.

1. Prvo i najvažnije, pritisnite "Alt+F11" da biste pozvali VBA editor u Wordu.
2. Zatim kliknite na “Normalno”.
3. Zatim kliknite na karticu "Insert".
4. I odaberite “Module” na padajućem izborniku kartice “Insert”.
5. Dvaput kliknite na novi modul da otvorite područje kodiranja na desnoj strani.
6. Sada tamo zalijepite sljedeći makro:

Sub ExcludeTableAndCaptionWordsFromWordCount()
  Dim objTable As Table
  Dim objParagraph As Paragraph
  Dim objDoc As Document
  Dim nTableWords As Integer, nDocWords As Integer, nWordCount As Integer, nCaptionWords As Integer
 
  Set objDoc = ActiveDocument
  nTableWords = 0
  nCaptionWords = 0
  nDocWords = ActiveDocument.ComputeStatistics(wdStatisticWords)
 
  With objDoc
    For Each objTable In .Tables
      nTableWords = nTableWords + objTable.Range.ComputeStatistics(wdStatisticWords)
    Next objTable
  End With
 
  With objDoc
    For Each objParagraph In .Paragraphs
      If objParagraph.Range.Style = "Caption" Then
        nCaptionWords = nCaptionWords + objParagraph.Range.ComputeStatistics(wdStatisticWords)
      End If
    Next objParagraph
  End With
 
  nWordCount = nDocWords - nTableWords - nCaptionWords
 
  MsgBox ("There are " & nWordCount & " main text words in this document." & vbCr & "The following items are excluded from word count: " & vbCr & "Total words in tables: " & nTableWords & vbCr & "Total caption words: " & nCaptionWords)
End Sub

7. Na kraju, kliknite "Pokreni".

Pokretanje makroa će iskočiti okvir sa porukom, koji prikazuje rezultat brojanja.

Pozabavite se oštećenjima riječi

Toliko se oslanjamo na softver kao što je Word za svakodnevnu obradu posla. Kao rezultat toga, nismo mogli razmišljati o ogromnoj posljedici postojanja a Korupcija riječi. Možete se osjećati očajno osim ako nemate dovoljan alat za popravku dokumenata.

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 xls fix i pdf popravak softverskih proizvoda. Za više informacija posjetite www.datanumen.com