Vba Wordcount für Microsoft Word 2010, die Überschriften und Tabellen ignoriert

Question

Ich brauche eine Möglichkeit, Wort machen eine Wortzahl zu machen, aber nicht die Wörter zählen, die in den Überschriften Styles und die Zitatstile geschrieben werden.

Ich habe das Folgende, das ist ein Ausgangspunkt, aber ich weiß nicht, wie man etwas ausschließt, geschweige denn Stile ... kann es getan werden?

Sub Macro1() 

Dim wordcount As Long 
Dim myrange As Range 

Set myrange = ActiveDocument.Range 

wordcount = myrange.ComputeStatistics(wdStatisticWords) 


MsgBox wordcount & " words" 

End Sub 

Dank

Sam

Answer 1

Kopieren Sie den Inhalt des Dokuments in eine neu erstellte, temporäre Dokument, führen Sie eine globale Suchen/Ersetzen (Word können für bestimmte Arten suchen), und ersetzen Sie alle Überschriften usw. durch nichts (denken Sie daran, den Makro-Recorder zu verwenden, wenn Sie die VBA-Befehle dafür benötigen). Wenden Sie dann ComputeStatistics auf das temporäre Dokument an.