微软word 2010的Vba字数忽略了标题和表格

Question

我需要一种方法来使单词进行单词计数，但不计算标题样式和引用样式中的单词。

我有以下这是一个起点，但我不知道如何排除任何东西，更不用说样式......可以这样做吗？

Sub Macro1()

Dim wordcount As Long
Dim myrange As Range

Set myrange = ActiveDocument.Range

wordcount = myrange.ComputeStatistics(wdStatisticWords)


MsgBox wordcount & " words"

End Sub

由于

萨姆

Answer 1

将文档内容复制到新创建的临时文档中，运行全局查找/替换（Word允许搜索某些样式）并替换所有标题等（如果需要，请记得使用宏录制器）用于此的VBA命令）。然后，在临时文档上应用ComputeStatistics。