从字数统计中排除表格文本的 2 种方法

词解法 2025 年 9 月 28 日

在今天的ost，我们很高兴与您分享 2 个有效的方法来从字数统计中排除表格文本。

表通常用于保存数据。表格是我们在处理文档时说明要点的最好朋友。然后，当涉及到字数统计时，它会变得有点尴尬。有时，我们只需要获取正文的字数，而不需要获取表格中的所有数据。然而，众所周知，默认情况下，Word 会计算文档中的所有字数。为此，我们想出了行之有效的办法。请继续阅读以了解更多信息。

方法 1：手动选择表格并自行计算

如果是只有一两张表格的简短文档，按住“Ctrl”键一张一张地选择表格也没什么大惊小怪的。在这种方法中，所选表格中的总数将在状态栏中可见，如下所示：

如您所见，有 2 个数字。第一个是指所选表格中的字数，而第二个是文档中的总字数。只需使用第二个数字减去第一个数字即可得到结果。

方法 2：运行 VBA 代码

如上所述，如果文档中有大量表格，方法 1 会很乏味。手动选择它们绝对不是理想的方式。相反，我们建议您使用一个宏来计算所有单词，但在表格和标题中排除这些单词。

首先和形式ost, 按“Alt+F11”调用Word中的VBA编辑器。
然后，单击“正常”。
接下来单击“插入”选项卡。
然后在“插入”选项卡的下拉菜单中选择“模块”。
双击新模块，打开右侧编码区。
现在将以下宏粘贴到那里：

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

最后，单击“运行”。

运行宏会弹出一个消息框，显示计数结果。

处理单词损坏

我们非常依赖像 Word 这样的软件来处理日常工作。因此，我们不能只考虑拥有一个压倒性的后果词腐败. 除非你有足够的文件修复工具，否则你会感到绝望。

作者简介：

Vera Chen 是一位数据恢复专家 DataNumen, Inc.，它是数据恢复技术领域的世界领先者，包括 xls修复以及 pdf 修复软件产品。欲了解更多信息，请访问 datanumen.com