Macro to list all fonts in a Word doc

[cdrunner]

I am using the code in the below older thread to produce a list of fonts in a Word doc, it runs fine but only list Arial as the font and there are several others in the document. Any ideas what I am doing wrong? Thanks in advance.

http://www.vbaexpress.com/forum/showthread.php?45007-Macro-to-List-all-Font-amp-its-size-in-a-word-document (http://www.vbaexpress.com/forum/showthread.php?45007-Macro-to-List-all-Font-amp-its-size-in-a-word-document&highlight=Macro+to+list+all+fonts)

[macropod]

See: https://www.eileenslounge.com/viewtopic.php?t=26652#p206579

[cdrunner]

Thanks for the link but that code does not work for me. It runs and returns a pop up screen saying the following fonts are found but nothing reported. When you click ok it deletes the content from mu document. Any other suggestions are appreciated.

[macropod]

Thanks for the link but that code does not work for me. It runs and returns a pop up screen saying the following fonts are found but nothing reported.
For reasons explained in the link, that would only be so if you ran the code against an empty document.

When you click ok it deletes the content from mu document.
There is nothing in the code to delete anything...

[cdrunner]

For reasons explained in the link, that would only be so if you ran the code against an empty document.[/FONT][/COLOR]
[COLOR=#222222][FONT=Verdana]
There is nothing in the code to delete anything...

I have a 23 page Word document open, I have added the code to a new module. I run t macro and get a pop up screen says "The following fonts have been found in the document but not on the system:" No fonts listed. When I click ok I am retuned to the Word document and the document is blank.

[macropod]

See my previous reply. I have not idea what you're doing to cause the results you're getting.