You can adapt and use this macro to insert the word count at the insertion
point:
Sub WordCount()
Dim NumWords
NumWords = ActiveDocument.ComputeStatistics(wdStatisticWords)
MsgBox ("The document contains " & NumWords & " words")
Selection.TypeText Text:="There are " & NumWords & " words in this
document."
End Sub
Yes. Insert a NumWords field where you want the word count to appear. Insert
the field using Insert | Field or by pressing Ctrl+F9 and typing NUMWORDS
between the braces.
Ask a Question
Want to reply to this thread or ask your own question?
You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.