[系统相关] [已解决]批处理如何将应用程序窗口前置、最小化、最大化、还原

@echo off
>temp.vbs echo Set WA = CreateObject^("Word.Application"^)
>>temp.vbs echo Set WAT = WA.Tasks
>>temp.vbs echo For Each A in WAT
>>temp.vbs echo     If A.Visible Then
>>temp.vbs echo         Wscript.Echo A.Name
>>temp.vbs echo     End If
>>temp.vbs echo Next
>>temp.vbs echo WA.Quit
setlocal enabledelayedexpansion
for /f "delims=" %%i in ('cscript.exe //nologo temp.vbs') do (
    set ver=%%i
    echo !ver!
)
del temp.vbs
pause
复制代码

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