WScript.Shellのエラー

Question

前提・実現したいこと

AccessVBA（Access2016）にて、Wordを呼び出しているアプリケーションがあります。これまで普通に使えていたのに、ある日突然エラーが発生するようになりました。

しかもある特定のPCのみで発生していて、そのPC以外では、そのアプリケーションは問題なく動作しています。

エラーが発生する前後で変わったことと言えば、それまでAccess2007だったのを2016に変更したことです（他のPCも同様に変えました）。

発生している問題・エラーメッセージ

'Run'メソッドは失敗しました：'IWshShell3'オブジェクト

該当のソースコード

CreateObject("WScript.Shell").Run "winword.exe " & ""

試したこと

起動するソフトををExcelにしても同じでした。

補足情報（FW/ツールのバージョンなど）

OS:Windows7
Word：2010
参照設定はしていません

Answer 1

CreateObject("WScript.Shell").Run "winword.exe " & ""

これって、実際のコードそのままですか。& の後ろにファイルパスとか入ってませんか。

そのエラーメッセージで検索してみると、ファイルが見つからないというエラーのようです。

実行時エラー　-2147024894　について

Comments

[mm_teratail]

早速の確認ありがとうございます。
コードはこのままです。もう少し詳しく書くと、

Private Sub cmd_F8_Click()
　　　　CreateObject("WScript.Shell").Run "winword.exe " & ""
End Sub

デバッグで追いかけても、上記のところでエラーが発生します。

Shellコマンドで、WordやExcelを呼び出すだけなんですが・・・しかも以前は問題なく動作しており・・・と困っています。

特定のPCだけで発生しており（そのPCではWordやExcelは、普通に実行できます）、もしかしたらそのPCのShellコマンドに問題があったりするのか・・・とも思ったりしています。

[hatena19]

単純にワードを起動したいだけないですね。単純にVBAの Shell関数ではどうですか。
Shell "winword.exe", vbNormalFocus

それでだめなら、ワードのパスが通ってない可能性があるので、フルパスで指定したらどうでしょうか。

下記は私の環境の場合のコードです。

Shell "C:\Program Files (x86)\Microsoft Office\root\Office16\WINWORD.EXE", vbNormalFocus