如何用vba快速地结束所有应用程序的进程？

比如打开了多个word 进程，可以使用dos 命令 Taskkill 来快速地结束。

如DOS命令 “Taskkill /im winword.exe /f /t ”，可以强制一次性快速地结束word进程。

其中/im 表示要结束的进程的映像名称，/f 表示强制结束，/t 表示连同子进程一起结束。

如果把这个命令应用到vba中，则可以实现条件化地结束任何一个应用程序的所有进程。

Sub QQ1722187970()
    Dim sCmd As String
    sCmd = "cmd /c Taskkill /im winword.exe /f /t"
    Shell sCmd
End Sub