vbscript - vbscript の後に Winword.exe を強制終了します。

Question

以下の VB スクリプトを実行すると、期待どおりの出力が得られます。

しかし、新しい winword.exe プロセスが実行されます。これは、スクリプトの終了後に強制終了する必要がありました。

Set Wshshell= CreateObject("Word.Basic")
WshShell.sendkeys"%{prtsc}"
WScript.Sleep 1500
Set wshshell = Nothing

set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "mspaint"
WScript.Sleep 1000
Set wshshell = Nothing

Set Wshshell= CreateObject("Word.Basic")
WshShell.AppActivate "Paint"
WScript.Sleep 2000

WshShell.sendkeys"^(v)"
WScript.Sleep 1000

WshShell.sendkeys"^(s)"
WScript.Sleep 1500

WshShell.sendkeys"c:\testing.jpg"
WScript.Sleep 500
WshShell.sendkeys "{Enter}"

Set wshshell = Nothing