List Fonts Used in Word 2000 documents

[DJ_Ryan]

I have a folder that contains about three thousand word 2000 documents. I
would like to generate a list of all the fonts used in the documents together
with a count of how many documents contain the font. I have searched in vba
and in word newsgroups but I have not found a way to do this. Thank you for
your help.

 

[Helmut Weber]

Hi Ryan,
http://tinyurl.com/4zzcx
the last I have heard of You was, that is was working fine.
It was made to process the main story of one document.
What is exactly the problem?

 

[DJ_Ryan]

Helmut,
Thank you for your reply. My name is Ryan, not Ravi. The question asked by
Ravi is the opposite and different from my question. I would like a collated
list of fonts used, instead of fonts fonts missing. I am also trying to sum
the results from all the documents, instead of just one document. I am
reviewing your code for inspiration to answer my question, but I am still not
able to create my own solution.

DJ_Ryan

 

[Helmut Weber]

Hi Ryan,
sorry about muddling names.
What you are asking for is too much to be answered
in a single posting. It is a nice little project.
Are you able to create a list of all docs you want to process?
Can you open and close them all programmatically?
Application.filesearch, I think, would be a good tool.
Then, you may need two runs.
Create a list of all fonts in the first doc,
e.g. by the tool I provided. Then proceed through all docs
and add font names in case, they aren't already listed.
If you want to detect some odd wordperfect fonts,
the complications would be endless.
After processing all the 3000 docs, you have got a list
of all the fonts. Now you start again, open each doc and
check, whether the font in the list is in the doc.
Just a matter of endurance.
I am doing things like that using VB, not Word VBA!
Danger of fatal errors is too high.