word count?

[W. Frederick Zimmerman [OneNote MVP]]

is there a way to get Word to do an automatic word count every time it
closes a document and save that info to (ideally) an Excel file?

 

[Erik Gregory]

You could create a macro (search for help on macros) that would automate the word count process when you close a document, but as for that information being automatically inserted into an Excel file, I don't know. Perhaps the macro could do that as well, but I doubt it. Good hunting!

 

[Jezebel]

No problem about inserting data into an Excel file (or any other file) from
a macro:

Dim pXLApp as object
Dim pXLBook as object
set pXLApp = CreateObject("Excel.Application")
set pXLBook = pXLApp.Workbooks.Open("C:\...MyBook.xls")
pXLBook.Worksheets("WordLog").Range("C12") = ActiveDocument.Words.Count
:
etc

You could create a macro (search for help on macros) that would automate

the word count process when you close a document, but as for that
information being automatically inserted into an Excel file, I don't know.
Perhaps the macro could do that as well, but I doubt it. Good hunting!

 

[W. Frederick Zimmerman [OneNote MVP]]

thanks, pretty cool

No problem about inserting data into an Excel file (or any other file) from
a macro:

Dim pXLApp as object
Dim pXLBook as object
set pXLApp = CreateObject("Excel.Application")
set pXLBook = pXLApp.Workbooks.Open("C:\...MyBook.xls")
pXLBook.Worksheets("WordLog").Range("C12") = ActiveDocument.Words.Count
:
etc





the word count process when you close a document, but as for that
information being automatically inserted into an Excel file, I don't know.
Perhaps the macro could do that as well, but I doubt it. Good hunting!