' WORDのヴァージョン情報を返す。
   Dim WDApp
   Set WDApp = CreateObject("Word.Application")
   Msgbox ("Word:Version = " & WDApp.Version)