Macro to list all fonts in a Word doc

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

See: https://www.eileenslounge.com/viewto...=26652#p206579

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.

Quote:

---

Originally Posted by 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.

---

For reasons explained in the link, that would only be so if you ran the code against an empty document.

Quote:

---

Originally Posted by cdrunner

When you click ok it deletes the content from mu document.

---

There is nothing in the code to delete anything...

Quote:

---

Originally Posted by macropod

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.

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