It appears that when using a Range, the IncludeFootnotesAndEndnotes parameter is not available. It doesn't work, giving an error that there are too many parameters. Word also counts pages, paragraphs, lines, and characters. 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) 500 216K views 3 years ago Microsoft Word 101 Microsoft Word counts the number of words in a document while you type. Visit our Author Resource Center for academic publishing tips and resources: https. Word counts the number of words in a document while you type. The variables pos1 and pos2 have been set to the first and last characters of the page being counted. This video explains how to determine the word count of your Word document. From the menu that comes up, go to the Word Count option. If you're not seeing the word count in the status bar, it may have been previously disabled. Place your mouse pointer on the Status Bar and click on the right mouse button. You can find the word count to the left of the status bar at the bottom of the window. 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) The easiest way to get the word count of your entire Word document is to simply check the status bar, as the word count is displayed by default. Sub CountTypeface() Dim lngWord As Long Dim lngCountIt As Long Const Typeface As String 'Cambria' For lngWord 1 To Ignore any document 'Words' that arent real words (CR, LF etc) If Len(Trim(ActiveDocument. To see the number of words in a whole document, simply find the word count in the status bar at the bottom left of the page. 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 only found Count words in a Microsoft Word document by Fonts. 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. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |