Macro to count word counts in different Word docs, and enter them into Excel?

[Ripley2453]

Hi everyone,

I'm an aspiring author, and want to keep track of the word counts in my chapters.
At the moment each chapter is a different file. I would like a macro to go into each file, and tell me the word count in an excel table, for each chapter.

I'm usually pretty good at figuring macros out for myself, but I would just like a nice, simple macro that I can just copy and paste.

Anyone able to help me?

NOTE: I am using Office 2016 (365).

Cheers,
Brad.

 

[Ripley2453]

Got that all set up okay. However, when I select the folder and the macro runs, nothing happens...

Any ideas? :/

 

[Macropod]

The macro works fine for me - the stats are output to the active sheet in the workbook you run the macro from. Do note that, as coded, the macro looks for docx files; if you're using doc files, change:
strFile = Dir(strFolder & "\*.docx", vbNormal)
to:
strFile = Dir(strFolder & "\*.doc", vbNormal)

 

[Ripley2453]

The macro works fine for me - the stats are output to the active sheet in the workbook you run the macro from. Do note that, as coded, the macro looks for docx files; if you're using doc files, change:
strFile = Dir(strFolder & "\*.docx", vbNormal)
to:
strFile = Dir(strFolder & "\*.doc", vbNormal)

They're docx files anyway.
I don't know what I've done, but it's all working now! Cheers, much appreciated!