VBA wordcount for 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。