ワードドキュメントで使用されているすべてのフォントスタイルを読み取るためのVBAマクロ

Question

ワードドキュメントの一貫性を確認するために、特定のドキュメントに使用されている/使用されているすべてのフォントのリストを取得したいと思います。私はGUIのためのオプションを見つけることができませんでしたが、これはVBAでプログラムで行うことができますか？私はVBAの経験はありませんが、このような疑似コードはうまくいくはずです。

all_fonts = [] 
for paragraph in all_paragraphs 
    for each word in paragraph 
     if word.style not in all_fonts 
      all_fonts.append(word.style) 


print all_fonts 

Answer 1

はい：そのパターンに続く文書hereからすべてのフォントを読み取る実装があります。