2 metoder for å ekskludere tabelltekster fra ordtellingsstatistikk

I dagens sost, vi er glade for å dele med deg 2 effektive metoder for å ekskludere tabelltekster fra ordtellingsstatistikk.

Tabeller brukes vanligvis til å holde data. Og tabeller er vår beste venn når det gjelder å illustrere punkter mens vi jobber med et dokument. Da kan det bli litt kjipt når ordtelling er involvert. Noen ganger trenger vi bare å få antall ord i hovedtekster i stedet for alle dataene i tabeller. Likevel er det kjent for alle at Word teller alle ordene i dokumentet ditt som standard. Av denne grunn har vi kommet frem til effektive midler. Les videre for å finne ut mer.

Metode 1: Velg tabeller manuelt og gjør matematikken på egen hånd

Hvis det er et kort dokument med bare én eller to tabeller, er det ikke noe problem å velge tabeller én etter én ved å holde nede “Ctrl”-tasten. I denne tilnærmingen vil det totale antallet i valgte tabeller være synlig på statuslinjen, for eksempel nedenfor:

Som du ser er det 2 tall. Den første refererer til antall ord i utvalgte tabeller, mens den andre er det totale antallet ord i dokumentet. Bare bruk det andre tallet for å minus det første for å få resultatet.

Metode 2: Kjør VBA-koder

Som nevnt ovenfor vil metode 1 være kjedelig hvis du har et stort antall tabeller i dokumentet. Å velge dem manuelt er definitivt ikke den ideelle måten. I stedet anbefaler vi deg en makro som vil telle alle ord, men ekskludere disse i tabeller og bildetekster.

1. Først og fremstost, trykk "Alt+ F11" for å starte VBA-editoren i Word.
2. Klikk deretter på "Normal".
3. Klikk deretter på "Sett inn"-fanen.
4. Og velg "Modul" på rullegardinmenyen til "Sett inn"-fanen.
5. Dobbeltklikk på den nye modulen for å åpne kodeområdet på høyre side.
6. Lim inn følgende makro der:

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. Til slutt klikker du på "Kjør".

Kjøring av makroen vil dukke opp en meldingsboks som viser telleresultatet.

Håndter ordskader

Vi stoler så mye på programvare som Word for å behandle arbeid på daglig basis. Som et resultat kunne vi ikke bare tenke på den overveldende konsekvensen av å ha en Ordkorrupsjon. Du kan føle deg desperat med mindre du har et tilstrekkelig dokumentreparasjonsverktøy.

Forfatterintroduksjon:

Vera Chen er en datagjenopprettingsekspert innen DataNumen, Inc., som er verdensledende innen datagjenopprettingsteknologier, inkludert xls fikse og pdf reparere programvareprodukter. For mer informasjon besøk www.datanumen. Med