2 Metoder för att utesluta tabelltexter från ordräkningsstatistik

I dagens inlägg delar vi gärna med oss ​​av två effektiva metoder för att exkludera tabelltexter från ordräkningsstatistik.

Tabeller används vanligtvis för att hålla data. Och tabeller är vår bästa vän när det gäller att illustrera punkter när vi arbetar med ett dokument. Då kan det bli lite besvärligt när det gäller ordräkning. Någon gång behöver vi bara få antalet ord i huvudtexter snarare än all data i tabeller. Ändå är det känt för alla att Word räknar alla ord i ditt dokument som standard. Av denna anledning har vi kommit fram till effektiva medel. Läs vidare för att ta reda på mer.

Metod 1: Välj tabeller manuellt och gör matematiken på egen hand

Om det är ett kort dokument med bara en eller två tabeller är det ingen krångel att välja tabeller en efter en genom att hålla ner "Ctrl" -tangenten. I det här tillvägagångssättet kommer det totala antalet i valda tabeller att visas i statusfältet, till exempel nedan:

Som du ser finns det två nummer. Den första avser antalet ord i valda tabeller medan den andra är det totala antalet ord i ditt dokument. Använd bara det andra numret till minus det första för att få resultatet.

Metod 2: Kör VBA-koder

Som nämnts ovan kommer metod 1 att vara tråkig om du har ett stort antal tabeller i dokumentet. Att välja dem manuellt är definitivt inte det perfekta sättet. Istället rekommenderar vi dig ett makro som räknar alla ord men utesluter dessa i tabeller och bildtexter.

1. Först och främst, tryck på "Alt + F11" för att starta VBA-editorn i Word.
2. Klicka sedan på “Normal”.
3. Klicka sedan på fliken "Infoga".
4. Och välj ”Modul” på rullgardinsmenyn på fliken ”Infoga”.
5. Dubbelklicka på den nya modulen för att öppna kodningsområdet på höger sida.
6. Klistra in följande makro där:

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. Klicka slutligen på "Kör".

Körning av makrot ska dyka upp en meddelandefält som visar räkningsresultatet.

Hantera ordskador

Vi litar så mycket på programvara som Word för att bearbeta arbete dagligen. Som ett resultat kunde vi inte tänka på den överväldigande konsekvensen av att ha en Ordkorruption. Du kan känna dig desperat om du inte har tillräckligt med dokumentreparationsverktyg.

Författarintroduktion:

Vera Chen är en dataåterställningsexpert i DataNumen, Inc., som är världsledande inom teknik för återställning av data, inklusive xls fix och pdf reparera programvaruprodukter. För mer information besök www.datanumen.com