Count the total number of words in a Wolfram notebook?

Hi
It’s all in the title of this post. This is a trivial matter in Word but I cannot see how to do it simply in a notebook. This is required for my university project.

Paul, I hope this will help.

NotebookImport["xxx.nb", "Input" -> "InputText"];
StringSplit[%, RegularExpression["\\W+"]] // Flatten // Tally

What the meaning of “word” here??

Kotaro, thanks for the suggestion but it doesn’t help much I just get back a whole notebook filled with characters which must be the formatting instructions.
Murray, I mean words in the sense of a report that needs to be maximum 3000 words long excluding the mathematics.
In fact the solution I have used is to save as a pdf, open in Word and press the word count button. However it is not very elegant and if MS can do it at the touch of a button then why not Wolfram!