Script to delete all object styles from a book?

Hi everyone,

I recently found a script posted by Adobe in 2011 that removes all unused paragraph, table, and character styles from every file in a book. It proved to be extremely helpful.

http://blogs.adobe.com/techcomm/2011/10/extendscript-of-the-week-deleting-unused-formats-in-a-book.html

I need also to remove unused object styles from several books. Does anyone know where to locate such a script? I haven't used the current scripting tool so it would take me a very (very) long time to edit the one Adobe provided. Also - no need to recreate the wheel, right?

Thanks in advance,

Diane