2 Metoda për të përjashtuar tekstet e tabelave nga statistikat e numërimit të fjalëve

Në postimin e sotëm, jemi të lumtur të ndajmë me ju 2 metoda efektive për të përjashtuar tekstet e tabelave nga statistikat e numërimit të fjalëve.

Tabelat zakonisht përdoren për të mbajtur të dhëna. Dhe tabelat janë miku ynë më i mirë në ilustrimin e pikave gjatë punës në një dokument. Atëherë mund të bëhet paksa e sikletshme kur përfshihet numërimi i fjalëve. Dikur, na duhet vetëm të marrim numrin e fjalëve të teksteve kryesore dhe jo të gjitha të dhënat në tabela. Megjithatë, është e njohur për të gjithë se Word numëron të gjitha fjalët në dokumentin tuaj si parazgjedhje. Për këtë arsye, ne kemi gjetur mjete efikase. Lexoni për të mësuar më shumë.

Metoda 1: Zgjidhni Tabelat me dorë dhe bëni llogaritjen vetë

Nëse është një dokument i shkurtër me vetëm një ose dy tabela, nuk është e vështirë të zgjidhni tabelat një nga një duke mbajtur të shtypur tastin "Ctrl". Në këtë qasje, numri i përgjithshëm në tabelat e zgjedhura do të jetë i dukshëm në shiritin e statusit, si më poshtë:

Siç e shihni, ka 2 numra. E para i referohet numrit të fjalëve në tabelat e zgjedhura ndërsa e dyta është numri total i fjalëve në dokumentin tuaj. Thjesht përdorni numrin e dytë në minus të parën për të marrë rezultatin.

Metoda 2: Ekzekutoni kodet VBA

Siç u përmend më lart, metoda 1 do të jetë e lodhshme nëse keni një numër të madh tabelash në dokument. Zgjedhja e tyre me dorë nuk është padyshim mënyra ideale. Në vend të kësaj, ne ju rekomandojmë një makro që do të numërojë të gjitha fjalët, por do t'i përjashtojë ato në tabela dhe titrat.

1. Para së gjithash, shtypni "Alt + F11" për të thirrur redaktorin VBA në Word.
2. Pastaj, klikoni "Normal".
3. Pastaj klikoni në skedën "Fut".
4. Dhe zgjidhni "Modul" në menunë rënëse të skedës "Fut".
5. Klikoni dy herë modulin e ri për të hapur zonën e kodimit në anën e djathtë.
6. Tani ngjitni makronë e mëposhtme atje:

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ë fund, klikoni "Run".

Ekzekutimi i makros do të shfaqet një kuti mesazhi, duke treguar rezultatin e numërimit.

Merreni me dëmet e fjalëve

Ne mbështetemi kaq shumë në softuer si Word për të përpunuar punën në baza ditore. Si rezultat, ne nuk mund të mendonim për pasojat dërrmuese të të pasurit një Korrupsioni i fjalëve. Ju mund të ndiheni të dëshpëruar nëse nuk keni një mjet të mjaftueshëm për riparimin e dokumenteve.

Hyrje e autorit:

Vera Chen është një eksperte për rikuperimin e të dhënave DataNumen, Inc., e cila është lider botëror në teknologjitë e rikuperimit të të dhënave, duke përfshirë xls rregullohet pdf riparimin e produkteve softuerike. Për më shumë informacion vizitoni www.datanumen.com