计算单词数并忽略Word VBA中的新行

Question

我想计算文档中的所有单词，而忽略新行作为单词。例如，在下一个示例中运行以下代码:

For Each sentence In x.StoryRanges
For Each w In sentence.Words
i = i + 1
Next
Next
MsgBox i

的例子:

---

这是一个测试

仍然测试

---

会回显"7"而不是6个字(这，是，a，测试，仍然，测试)，因为空行

有办法吗?由于

Answer 1

不要循环遍历Sentences和Words，因为那样无法得到准确的结果。相反，使用ComputeStatistics方法的范围，你想计数的单词。例如

ActiveDocument.Content.ComputeStatistics(wdStatisticWords)