2 metode za isključivanje tekstova tablica iz statistike broja riječi

U današnjoj objavi, drago nam je podijeliti s vama dvije učinkovite metode za isključivanje tekstova tablica iz statistike broja riječi.

Tablice se općenito koriste za čuvanje podataka. A tablice su naš najbolji prijatelj u ilustriranju točaka tijekom rada na dokumentu. Onda može biti malo neugodno kada je u pitanju brojanje riječi. Ponekad samo trebamo dobiti broj riječi glavnih tekstova umjesto svih podataka u tablicama. Ipak, svima je poznato da Word prema zadanim postavkama broji sve riječi u vašem dokumentu. Iz tog razloga, osmislili smo učinkovita sredstva. Čitajte dalje kako biste saznali više.

Metoda 1: Ručno odaberite tablice i sami izračunajte

Ako se radi o kratkom dokumentu sa samo jednom ili dvije tablice, nema problema odabirati tablice jednu po jednu držeći pritisnutu tipku “Ctrl”. U ovom pristupu, ukupni broj u odabranim tablicama 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 tablicama, dok je drugi ukupan broj riječi u vašem dokumentu. Samo upotrijebite drugi broj za minus prvi da biste dobili rezultat.

Metoda 2: Pokrenite VBA kodove

Kao što je gore spomenuto, metoda 1 bit će zamorna ako imate velik broj tablica u dokumentu. Ručni odabir definitivno nije idealan način. Umjesto toga, preporučujemo vam makronaredbu koja će brojati sve riječi, ali ih isključiti iz tablica i naslova.

1. Prvo i najvažnije, pritisnite "Alt + F11" za pozivanje VBA editora u Wordu.
2. Zatim kliknite "Normalno".
3. Zatim kliknite karticu "Umetni".
4. I odaberite "Modul" na padajućem izborniku kartice "Umetni".
5. Dvaput kliknite na novi modul da biste otvorili područje kodiranja s desne strane.
6. Sada tamo zalijepite sljedeću makronaredbu:

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 makronaredbe iskočit će okvir s porukom koji prikazuje rezultat brojanja.

Suočite se s oštećenjima riječi

Toliko se oslanjamo na softver poput Worda za svakodnevnu obradu posla. Kao rezultat toga, nismo mogli razmišljati o ogromnim posljedicama posjedovanja Korupcija riječi. Možete se osjećati očajno ako nemate dovoljno alata za popravak dokumenata.

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 xls popraviti i pdf popraviti softverske proizvode. Za više informacija posjetite www.datanumen.com