VBA宏讀出在word文檔中使用的所有字體樣式

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中的所有字體的實現方式，該文件遵循該模式。