忽略标题和表格的 microsoft word 2010 的 Vba 字数答案

【问题标题】：Vba wordcount for microsoft word 2010 that ignores headings and tables忽略标题和表格的 microsoft word 2010 的 Vba 字数
【发布时间】：2012-04-03 19:19:51
【问题描述】：

我需要一种方法让 word 计算字数，但不计算标题样式和引号样式中写的字数。

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

Sub Macro1()

Dim wordcount As Long
Dim myrange As Range

Set myrange = ActiveDocument.Range

wordcount = myrange.ComputeStatistics(wdStatisticWords)


MsgBox wordcount & " words"

End Sub

谢谢

山姆

【问题讨论】：

标签： vba ms-word

【解决方案1】：

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

【讨论】：