2 Methoden om tabelteksten uit te sluiten van statistieken over het aantal woorden

In dit artikel delen we graag twee effectieve methoden om tabelteksten uit te sluiten van de woordentellingstatistieken.

Tabellen worden over het algemeen gebruikt om gegevens op te slaan. En tabellen zijn onze beste vriend bij het illustreren van punten terwijl we aan een document werken. Dan kan het een beetje lastig worden als het gaat om het tellen van woorden. Soms moeten we alleen het aantal woorden van hoofdteksten krijgen in plaats van alle gegevens in tabellen. Toch is het iedereen bekend dat Word standaard alle woorden in uw document telt. Om deze reden hebben we efficiënte middelen bedacht. Lees verder voor meer informatie.

Methode 1: Selecteer tabellen handmatig en voer de wiskunde zelf uit

Als het een kort document is met slechts een of twee tabellen, is het geen gedoe om tabellen een voor een te selecteren door de Ctrl-toets ingedrukt te houden. Bij deze benadering is het totale aantal geselecteerde tabellen zichtbaar in de statusbalk, zoals hieronder:

Zoals u ziet, zijn er 2 cijfers. De eerste verwijst naar het aantal woorden in geselecteerde tabellen, terwijl de tweede het totale aantal woorden in uw document is. Gebruik gewoon het tweede nummer om het eerste te minus om het resultaat te krijgen.

Methode 2: voer VBA-codes uit

Zoals hierboven vermeld, zal methode 1 vervelend zijn als u een groot aantal tabellen in het document heeft. Handmatig selecteren is beslist niet de ideale manier. In plaats daarvan raden we u een macro aan die alle woorden telt, maar deze uitsluit in tabellen en bijschriften.

1. Druk allereerst op "Alt+F11" om de VBA-editor in Word te openen.
2. Klik vervolgens op "Normaal".
3. Klik vervolgens op het tabblad "Invoegen".
4. En kies "Module" in het vervolgkeuzemenu van het tabblad "Invoegen".
5. Dubbelklik op de nieuwe module om het coderingsgebied aan de rechterkant te openen.
6. Plak daar nu de volgende macro:

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. Klik ten slotte op "Uitvoeren".

Als u de macro uitvoert, verschijnt een berichtvenster met het telresultaat.

Omgaan met woordschade

We zijn zo afhankelijk van software als Word om dagelijks werk te verwerken. Als gevolg daarvan konden we niet anders dan denken aan de overweldigende consequentie van het hebben van een Woord corruptie. U kunt zich wanhopig voelen, tenzij u over een voldoende hulpmiddel voor het repareren van documenten beschikt.

Auteur Introductie:

Vera Chen is een expert op het gebied van gegevensherstel in DataNumen, Inc., de wereldleider in technologieën voor gegevensherstel, waaronder xls repareren en pdf reparatie softwareproducten. Voor meer informatie bezoek www.datanumen.com