Dim strDOCFileName Dim objDOCApp '引数のチェック If WScript.Arguments.Count <> 1 Then WScript.Quit 'ファイル名取得 strDOCFileName = WScript.Arguments(0) '起動 Set objDOCApp = WScript.CreateObject("Word.Application") objDOCApp.Visible = True '読み取り専用で開く Call objDOCApp.Documents.Open(strDOCFileName,,True) '終了処理 Set objDOCApp = Nothing WScript.Quit