![]() Once you have done so, use the blue Count Words on this page. It appears that when using a Range, the IncludeFootnotesAndEndnotes parameter is not available. Start by writing or copying and pasting the text you wish to count. It doesn't work, giving an error that there are too many parameters. Writers leverage it to improve word choice and writing style as well as helping to detect grammar mistakes and plagiarism. ![]() However, when I add the True parameter to ComputeStatistics(wdStatisticWords, True), to IncludeFootnotesAndEndnotes, as in: WordCount = ActiveDocument.Range(Start:=pos1, End:=pos2).ComputeStatistics(wdStatisticWords, True) The Word Counter is a dynamic online tool used for counting words, characters, sentences, paragraphs and pages in real time, along with spelling and grammar checking. The variables pos1 and pos2 have been set to the first and last characters of the page being counted. I have a macro that correctly counts the number of words in the body of the text, using the command: WordCount = ActiveDocument.Range(Start:=pos1, End:=pos2).ComputeStatistics(wdStatisticWords) It doesn't matter if a footnote spills over onto the next page, I just the word count including footnotes that are anchored on the page. I periodically receive long documents that include footnotes and am trying to find a way using VBA to count the number of words on each page, including footnotes.
0 Comments
Leave a Reply. |