Macro: List fonts within a text file?

Hi,

Is there a macro out there that when activated, will do the following?

1.) Create a new TXT file.

2.) List the name of all fonts used in the document

3.) Save the TXT file using the same name as what the current document is named to a specified directory.

4.) Close the TXT file.

Is there an existing macro that can do this or would this be a difficult thing to accomplish?

Thanks!

Jason Moore