This page has moved to
https://www.relief.jp/docs/word-macro-get-all-font-names.html
.