2從字數統計中排除表文本的方法

Word解決方案 2025 年 9 月 28 日
立即分享：

在今天的文章中，我們很高興與大家分享兩種將表格文字從字數統計中排除的有效方法。

表通常用於保存數據。 表格是我們在處理文檔時說明點的最佳朋友。 當涉及到字數統計時，可能會有些尷尬。 有時，我們只需要獲取主要文本的單詞數，而不是表格中的所有數據即可。 但是，眾所周知，默認情況下，Word會對文檔中的所有單詞進行計數。 因此，我們提出了有效的手段。 請繼續閱讀以了解更多信息。從字數統計中排除表格文本

方法1：手動選擇表並自己做數學

如果它是一個只有一個或兩個表的簡短文檔，則可以通過按住“ Ctrl”鍵一個接一個地選擇表。 通過這種方法，所選表格中的總數將在狀態欄上顯示，例如以下：所選表中的單詞數

如您所見，有2個數字。 第一個是指所選表中的單詞數，第二個是文檔中的單詞總數。 只需使用第二個數字減去第一個數字即可得到結果。

方法2：運行VBA代碼

如上所述，如果文檔中有大量表，則方法1將很乏味。 手動選擇它們絕對不是理想的方法。 相反，我們建議您使用一個宏，該宏將計算所有單詞，但將它們排除在表和標題中。

  1. 首先，按下「Alt+F11」鍵，即可在 Word 中開啟 VBA 編輯器。
  2. 然後，單擊“正常”。
  3. 接下來點擊“插入”標籤。
  4. 然後在“插入”選項卡的下拉菜單中選擇“模塊”。單擊“常規”->單擊“插入”->單擊“模塊”
  5. 雙擊新模塊以打開右側的編碼區域。
  6. 現在在其中粘貼以下宏：
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
  1. 最後，單擊“運行”。粘貼代碼->單擊“運行”

運行宏將彈出一個消息框，顯示計數結果。結果框

處理字損

我們非常依賴Word之類的軟件來日常處理工作。 結果，我們不能僅僅考慮擁有一個 單詞腐敗。 除非您有足夠的文檔修復工具，否則您會感到絕望。

作者簡介：

陳薇薇（Vera Chen）是 DataNumen，Inc.是數據恢復技術的全球領導者，包括 XLS修復 以及 pdf 維修軟件產品。 欲了解更多信息，請訪問 萬維網。datanumen.COM

立即分享：

評論被關閉。