すべてのウィンドウを元のサイズに戻す。その２

もしWord 2002以降があれば、簡単です。でも、Wordって、遅いぃーっ。

RestoreAllWindows.VBS

Set Word=CreateObject("Word.Application")
For Each Task In Word.Tasks
  If Task.Visible Then If Task.WindowState=2 Then Task.WindowState=0
Next