2 metode pentru a exclude textele tabelelor din statisticile de numărare a cuvintelor

În postarea de astăzi, suntem încântați să vă împărtășim 2 metode eficiente de a exclude textele din tabele din statisticile privind numărul de cuvinte.

Tabelele sunt în general folosite pentru a păstra date. Și tabelele sunt cel mai bun prieten al nostru în ilustrarea punctelor în timp ce lucrăm la un document. Atunci poate deveni puțin ciudat atunci când este implicată numărul de cuvinte. Uneori, trebuie doar să obținem numărul de cuvinte din textele principale, mai degrabă decât toate datele din tabele. Cu toate acestea, este cunoscut tuturor că Word numără toate cuvintele din documentul dvs. în mod implicit. Din acest motiv, am inventat mijloace eficiente. Citiți mai departe pentru a afla mai multe.

Metoda 1: Selectați manual tabelele și faceți calculul pe cont propriu

Dacă este un document scurt, cu doar unul sau două tabele, nu este deloc complicat să selectați tabelele unul câte unul ținând apăsată tasta „Ctrl”. În această abordare, numărul total din tabelele selectate va fi vizibil în bara de stare, cum ar fi mai jos:

După cum vezi, sunt 2 numere. Primul se referă la numărul de cuvinte din tabelele selectate, în timp ce al doilea este numărul total de cuvinte din documentul dvs. Doar folosiți al doilea număr la minus primul pentru a obține rezultatul.

Metoda 2: Rulați coduri VBA

După cum am menționat mai sus, metoda 1 va fi plictisitoare dacă aveți un număr mare de tabele în document. Pentru a le selecta manual, cu siguranță nu este modalitatea ideală. În schimb, vă recomandăm o macrocomandă care va număra toate cuvintele, dar le va exclude în tabele și subtitrări.

1. În primul rând, apăsați „Alt+ F11” pentru a apela editorul VBA din Word.
2. Apoi, faceți clic pe „Normal”.
3. Apoi faceți clic pe fila „Inserare”.
4. Și alegeți „Modul” din meniul derulant al filei „Inserare”.
5. Faceți dublu clic pe noul modul pentru a deschide zona de codare din partea dreaptă.
6. Acum lipiți următoarea macrocomandă acolo:

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. În cele din urmă, faceți clic pe „Rulați”.

Rularea macrocomenzii va apărea o casetă de mesaj, care arată rezultatul numărării.

Faceți față cu daunele Word

Ne bazăm atât de mult pe software precum Word pentru a procesa munca zilnic. Drept urmare, nu ne-am putut lipsi să ne gândim la consecința copleșitoare a avea o Coruperea cuvintelor. Vă puteți simți disperat dacă nu aveți un instrument suficient de reparare a documentelor.

Introducerea autorului:

Vera Chen este expertă în recuperarea datelor DataNumen, Inc., care este lider mondial în tehnologiile de recuperare a datelor, inclusiv xls fix și pdf repararea produselor software. Pentru mai multe informații vizitați www.datanumen.com