Here are instructions on how to insert a macro in Word for the Mac. LngJunk = ActiveDocument.Sections(1).Headers(1).range.StoryTypeįor Each rngStory In ActiveDocument.StoryRanges For more information visit is a macro that updates all fields in a document.ĭim rngStory As Word.range, lngJunk As Long, oShp As Shapeĭim oTOC As TableOfContents, oTof As TableOfFigures, oToa As TableOfAuthorities
#HOW TO INSERT WORD COUNT IN WORD FOR MAC PDF#
Vera Chen is a data recovery expert in DataNumen, Inc., which is the world leader in data recovery technologies, including fix xls and pdf repair software products. Therefore, seize time to get one as soon as possible. Such a tool can be a great saver for corrupt Word. Since Word can collapse all of a sudden, it’s advisable to obtain an advanced repairing product to do the fixing job. Then you will see another box, listing all details of word count. If there is no text box, footnote or endnote, you will receive a message box as this: & Str(lEndnoteWords) & " word(s)," & Str(lEndnoteChars) & " characters") & Str() & " Endnotes contain(s)" & vbCr _ & Str(lFootnoteWords) & " word(s)," & Str(lFootnoteChars) & " characters" & vbCr & vbCr _ & Str() & " footnotes contain(s)" & vbCr _ & Str(lTextboxWords) & " word(s)," & Str(lTextboxChars) & " characters" & vbCr & vbCr _ & Str() & " textboxes contain(s)" & vbCr _ & Str(lDocumntWords) & " word(s) and" & Str(lDocumntChars) & " characters" & vbCr & vbCr _ MsgBox (" In this document there are totally" & vbCr _ MsgBox ("There is no Endnote in this document") LEndnoteChars = lEndnoteChars + objTemp.Characters LEndnoteWords = lEndnoteWords + objTemp.Words If objRange.StoryType = wdEndnotesStory Then ' Count the words and characters in all endnotes. MsgBox ("There is no footnote in this document") LFootnoteChars = lFootnoteChars + objTemp.Characters LFootnoteWords = lFootnoteWords + objTemp.Words If objRange.StoryType = wdFootnotesStory Then ' Count the words and characters in all footnotes. MsgBox ("There is no text box in this document") LTextboxChars = lTextboxChars + objTemp.Characters LTextboxWords = lTextboxWords + objTemp.Words ' Count the words and characters in all textboxes. Set objTemp = Dialogs(wdDialogToolsWordCount) ' Count the words and characters in the whole document. Sub SeparateCountNumberOfTextboxFootnoteEndnote()įor Each objTextboxShape In ActiveDocument.Shapes Double click the module to open the coding area and paste the following codes there:.Then insert a new module in “Normal” project by clicking “Normal” first.Next press “Alt+ F11” to open VBA editor.Firstly, trigger the “Word Count” box using the way in method 1 and ensure the option box is checked.Method 3: Run Word Macro to Get Separate Count of Words from Text Boxes, Footnotes and Endnotes So you just need to uncheck the “Include textboxes, footnotes and endnotes” box. Method 2: Exclude Texts from Text Boxes, Footnotes and Endnotes from Word Count If you can’t find the “Words” command on status bar, right click on there.Ensure you have checked “Include textboxes, footnotes and endnotes” box. There you will see all kinds of statistics.First and foremost, go to the status bar and click “Words” to open the “Word Count” box.Method 1: Count Words Including Texts from Text Boxes, Footnotes and Endnotesīy default, Word counts all words appear on the document, including texts in text boxes and words from footnotes and endnotes as well. But if you want to get the number of words of different kinds of texts, then more operations will be required. It’s not hard to get the total count of words in a document. In today’s article, there are 3 quick ways to get word count statistics related to text boxes, footnotes and endnotes in your document.