![仅对文档部分内容进行字数统计](https://linux22.com/image/1472184/%E4%BB%85%E5%AF%B9%E6%96%87%E6%A1%A3%E9%83%A8%E5%88%86%E5%86%85%E5%AE%B9%E8%BF%9B%E8%A1%8C%E5%AD%97%E6%95%B0%E7%BB%9F%E8%AE%A1.png)
我知道这是可能的NUMCOUNT
向文档添加字数统计字段( )以创建动态字数统计,但是否可以将字数统计限制在文档的某个部分?
我需要一个不使用宏/VBA 的解决方案。
答案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)
(基于本文中的信息知识库文章)。
当前宏将显示一个带有每个部分字数的警报,但当然这些信息也可以作为文本存储在文档中。