仅对文档部分内容进行字数统计

Question

我知道这是可能的NUMCOUNT向文档添加字数统计字段（ ）以创建动态字数统计，但是否可以将字数统计限制在文档的某个部分？

我需要一个不使用宏/VBA 的解决方案。

Answer 1

放宽 VBA 限制，在wordribbon.tips.net可以计算出每个部分的单词数，因为每个部分后面都有一个分节符：

Sub WordCount()
    Dim NumSec As Integer
    Dim S As Integer
    Dim Summary As String

    NumSec = ActiveDocument.Sections.Count
    Summary = "Word Count" & vbCrLf

    For S = 1 To NumSec
        Summary = Summary & "Section " & S & ": " _
          & ActiveDocument.Sections(S).Range.ComputeStatistics(wdStatisticWords) _
          & vbCrLf
    Next

    Summary = Summary & "Document: " & _
      ActiveDocument.Range.ComputeStatistics(wdStatisticWords)
    MsgBox Summary
End Sub

请注意，为了得到更准确的计数，我替换.Words.Count为.ComputeStatistics(wdStatisticWords)（基于本文中的信息知识库文章）。

当前宏将显示一个带有每个部分字数的警报，但当然这些信息也可以作为文本存储在文档中。

Answer 2

查找文档某个部分的字数：

• 选择感兴趣的部分
• 定位到审阅窗格
• 在“校对”组中，单击“字数统计”：

Answer 3

当你选择章节时，只需查看状态栏。字数显示在那里。