vbsすべてのクロムとワードドキュメントを保存して閉じる

Question

クロムのすべてのブラウザデータを消去してから、すべてのクロムウィンドウを閉じるvbscriptを作成しようとしています。 私は単語と見通しを閉じるのに問題があります。 これは、これまでの作品とクロムをクリアし、Chromeブラウザを閉じコードをIT：

Set WshShell = CreateObject("WScript.Shell") 
set WshShell=WScript.CreateObject("WScript.Shell") 
WshShell.run "chrome.exe" 
Set WshShell = CreateObject("WScript.Shell") 
set WshShell=WScript.CreateObject("WScript.Shell") 
WshShell.run "chrome.exe" 
WScript.Sleep (1000) 
WScript.CreateObject("WScript.Shell").SendKeys("^h") 
WScript.Sleep (2000) 
WScript.CreateObject("WScript.Shell").SendKeys("{TAB}") 
WScript.CreateObject("WScript.Shell").SendKeys("{TAB}") 
WScript.CreateObject("WScript.Shell").SendKeys("{TAB}") 
WScript.CreateObject("WScript.Shell").SendKeys("{ENTER}") 
WScript.Sleep (2000) 
WScript.CreateObject("WScript.Shell").SendKeys("{TAB}") 
WScript.CreateObject("WScript.Shell").SendKeys("{TAB}") 
WScript.CreateObject("WScript.Shell").SendKeys("{TAB}") 
WScript.CreateObject("WScript.Shell").SendKeys("{TAB}") 
WScript.CreateObject("WScript.Shell").SendKeys("{TAB}") 
WScript.CreateObject("WScript.Shell").SendKeys("{TAB}") 
WScript.CreateObject("WScript.Shell").SendKeys("{TAB}") 
WScript.CreateObject("WScript.Shell").SendKeys("{TAB}") 
WScript.CreateObject("WScript.Shell").SendKeys("{TAB}") 
WScript.CreateObject("WScript.Shell").SendKeys("{ENTER}") 
WshShell.AppActivate("Google Chrome") 
WshShell.run "RunDll32.exe InetCpl.cpl,ClearMyTracksByProcess 8" 
WshShell.run "RunDll32.exe InetCpl.cpl,ClearMyTracksByProcess 2" 
WshShell.run "RunDll32.exe InetCpl.cpl,ClearMyTracksByProcess 1" 
WshShell.run "RunDll32.exe InetCpl.cpl,ClearMyTracksByProcess 16" 
WshShell.run "RunDll32.exe InetCpl.cpl,ClearMyTracksByProcess 32" 
WshShell.run "RunDll32.exe InetCpl.cpl,ClearMyTracksByProcess 255" 

Set objExec = Nothing : Set objShell = Nothing 

strComputer = "." 
Set objWMIService = GetObject("winmgmts:" _ 
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") 

Set colProcessList = objWMIService.ExecQuery _ 
("Select * from Win32_Process Where Name = 'Chrome.exe'") 

Set oShell = CreateObject("WScript.Shell") 
For Each objProcess in colProcessList 
oShell.Run "taskkill /im chrome.exe", , True 
Next 

Set objShell = CreateObject("WScript.Shell") 
Set objExec = objShell.Exec("tasklist /fi " & Chr(34) & "imagename eq chrome.exe" & Chr(34)) 
If Not InStr(1, objExec.StdOut.ReadAll(), "INFO: No tasks", vbTextCompare) Then 
objShell.Run "taskkill /f /t /im chrome.exe", 0, True 
End If 

strComputer = "." 
Set objWMIService = GetObject("winmgmts:" _ 
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") 

Set colProcessList = objWMIService.ExecQuery _ 
("Select * from Win32_Process Where Name = 'notepad.exe'") 

For Each objProcess in colProcessList 
objProcess.Terminate() 
Next 

私はオープンワード文書のすべてを閉じて、基本的には、それらを保存する（対照群）しようとしています。私はこれをすべて1つのVBSファイルで行い、これを友達に送ることができ、使いやすくすることができます。 私はオンラインで研究していますが、私が探しているものが見つかりませんでした。 私が見たすべてのウェブサイトには、VBAや別のスクリプト言語を使用せずに、保存せずにすべてのドキュメントを閉じる方法や、VBSでプロセスを表示しない方法だけが示されています。 誰かが私のスクリプトを書くのを助けることができたら、私は感謝します！

:)

Answer 1

保存して閉じ、すべてのドキュメント：doc.Saved = Trueに変更doc.Saveを保存せずにすべての文書を閉じるための

'get a handle to the already running Word instance 
On Error Resume Next 
Set wd = GetObject(, "Word.Application") 
On Error Goto 0 

If Not IsEmpty(wd) Then 
    For Each doc In wd.Documents 
    doc.Save 
    doc.Close 
    Next 

    wd.Quit 
End If 

。それは基本的にWordに "この文書はすでに保存されている、黙っている"と伝えます。