前置窗体

Set WA= CreateObject("Word.Application")
Set WAT = WA.Tasks
If WAT.Exists("Tool") Then       'Tool.exe
   WAT("Tool").Activate         '激活窗体
   WAT("Tool").WindowState = 0  '0平常模式、1最小化模式、2最大化模式
End If
WA.Quit