窗口管理

1、层叠窗口

Set objShell = CreateObject("Shell.Application")
objShell.CascadeWindows

2、平铺窗口

Set objShell = CreateObject("Shell.Application")
objShell.TileVertically

3、最大化所有窗口

set htmlfile=createobject("htmlfile")
Set objWord = CreateObject("Word.Application")
objword.Visible=false
Set colTasks = objWord.Tasks
For Each objTask in colTasks
　　If objTask.Visible Then
　　　　objTask.Left = 0
　　　　objTask.Top = 0
　　　　objTask.Height = htmlfile.parentwindow.screen.height
　　　　objTask.Width = htmlfile.parentwindow.screen.width
　　End If
Next
objWord.Quit

4、最小化所有窗口

Set objShell = CreateObject("Shell.Application")
objShell.MinimizeAll

5、还原所有窗口

Set objWord = CreateObject("Word.Application")
objword.Visible=false
Set colTasks = objWord.Tasks
For Each objTask in colTasks
　　If objTask.Visible Then
　　　　objTask.WindowState = wdWindowStateNormal
　　End If
Next
objWord.Quit