VBA WordCount для Microsoft Word 2010, которая игнорирует заголовки и таблицы

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 к временному документу.