2 Metodi za izključitev besedil tabel iz statistike števila besed

V današnji objavi z veseljem delimo z vami dve učinkoviti metodi za izključitev besedil tabel iz statistike števila besed.

Tabele se običajno uporabljajo za shranjevanje podatkov. In tabele so naš najboljši prijatelj pri ilustriranju točk med delom na dokumentu. Potem lahko postane malce nerodno, ko gre za štetje besed. Včasih potrebujemo samo število besed glavnih besedil in ne vseh podatkov v tabelah. Vsem pa je znano, da Word privzeto šteje vse besede v vašem dokumentu. Iz tega razloga smo našli učinkovita sredstva. Preberite, če želite izvedeti več.

1. način: Ročno izberite tabele in izračunajte sami

Če gre za kratek dokument s samo eno ali dvema tabelama, je brez težav izbrati tabele eno za drugo tako, da držite tipko “Ctrl”. Pri tem pristopu bo skupno število v izbranih tabelah vidno v statusni vrstici, na primer spodaj:

Kot vidite, sta 2 številki. Prvi se nanaša na število besed v izbranih tabelah, medtem ko je drugi skupno število besed v vašem dokumentu. Samo uporabite drugo številko in odštejte prvo, da dobite rezultat.

2. način: Zaženite kode VBA

Kot je navedeno zgoraj, bo 1. metoda dolgočasna, če imate v dokumentu veliko tabel. Ročno izbiranje vsekakor ni idealen način. Namesto tega vam priporočamo makro, ki bo preštel vse besede, le te izključil iz tabel in napisov.

1. Najprej in predvsem pritisnite »Alt + F11«, da zaženete urejevalnik VBA v Wordu.
2. Nato kliknite »Normalno«.
3. Nato kliknite zavihek »Vstavi«.
4. In v spustnem meniju zavihka »Vstavi« izberite »Modul«.
5. Dvokliknite nov modul, da odprete območje kodiranja na desni strani.
6. Zdaj prilepite naslednji makro tja:

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 koncu kliknite »Zaženi«.

Zagon makra bo prikazal okno s sporočilom, ki prikazuje rezultat štetja.

Ukvarjajte se s poškodbami Worda

Za vsakodnevno obdelavo dela se zelo zanašamo na programsko opremo, kot je Word. Posledično nismo mogli razmišljati o ogromnih posledicah, ki jih ima Besedna korupcija. Lahko se počutite obupani, če nimate zadostnega orodja za popravilo dokumentov.

Uvod avtorja:

Vera Chen je strokovnjakinja za obnovitev podatkov v DataNumen, Inc., ki je vodilna na svetu na področju tehnologij za obnovitev podatkov, vključno z xls popraviti in pdf popravilo programskih izdelkov. Za več informacij obiščite www.datanumen.com