ExcelからWordを終了させたい。

Question

所定のフォルダ内のWordファイルを開いてページ数を取得し、
Excelファイル内に書き込むマクロを作成しました。

初回は問題なく動くのですが、連続で使用すると
「リモートサーバーがないか、使用できる状態ではありません。」
というエラーが表示されてしまいます。
デバック画面で確認したところ、Loopの1回目は問題なく処理できており、
Loopの2回目の★のところで停止してしまっていました。
バックグラウンドでWordが開いたままになってしまうので、再開に手間取っております。

Set wdApp = CreateObject("Word.Application")
Do While MyFile <> ""
 　Set wdDoc = wdApp.Documents.Open(MyPath & MyFile)
        j = wdDoc.Range.Information(wdNumberOfPagesInDocument)
    ws1.Cells(i, 6).Value = MyFile
    ws1.Cells(i, 7).Value = j
    Documents.Close SaveChanges:=wdDoNotSaveChanges　★
    Set wdDoc = Nothing
    MyFile = Dir()
Loop
wdApp.Quit
Set wdApp = Nothing

追加で何を記述すれば、連続で使用できるようになるでしょうか？

Answer 1

自環境では２周目も問題なく処理されているので参考になるかわかりませんが、アドバイスさせていただきます。

今回の処理は、
①Wordオブジェクト(wdApp)を生成
②ループ処理でWord文書(wdDoc)を開く
③Word文書(wdDoc)から情報を取得し、セルに出力
④次のループに移る前に開いたWord文書(wdDoc)を閉じる
⑤ループ終了後、Wordオブジェクト(wdApp)を閉じる

という流れになっていて、現状④で躓いているものと思います。

当方の環境では2周目も問題なく動作してしまいましたが、それでもDocuments.Close SaveChanges:=wdDoNotSaveChangesという記述には少し疑問を持ちました。

疑問①
Documents.Closeという記述はMicrosoftWord Object Libralyに参照設定をしていれば動作はしてくれますが、いったい何をCloseしているのでしょう？
OpenするときwdApp.Documents.Open(MyPath & MyFile)としているのならCloseするときもwdApp.Documents.Close SaveChanges:=wdDoNotSaveChangesと記述すべきでは？

疑問②
Closeしたいものは開いているWord文書(wdDoc)なので、ここはwdDoc.Close SaveChanges:=wdDoNotSaveChangesと記述してしまってよいのでは？

つまり、閉じたいものははっきりしているので、それを明示的に指定してCloseすればうまく動くんじゃないかな？ということです。

あてずっぽうなアドバイスで申し訳ないですが、参考になれば幸いです。
がんばってみてください。

Comments

[mochinn]

Close対象が明示されていなかったので、使用する人によって意図通りに動作したり、エラーが出たり、不安定だったんですね！ものすごく納得しました。
疑問②に書いていただいたように、wdDocをCloseする形に変更したところ、問題なく動くようになりました。
かなり長い間苦悩していた問題だったので、本当に助かりました。ありがとうございました！

Answer 2

先の回答のwdApp.Quitの後に
SaveChanges:=wdDoNotSaveChangesを入力してみてください。

Answer 3

Set objDoc = wdApp.Documents.Add()

これは新しい文書を開くときですので不要かと思います。

Do While MyFile <> ""
  Set wdApp = CreateObject("Word.Application") ★

  wdApp.Quit ★
  Set wdApp = Nothing ★
Loop

★の部分をLoop内に入れてしまえばどうでしょうか？

Comments

[mochinn]

ご回答ありがとうございます。
Loopの中に入れてみましたが、やはり同様のエラーが出てしまいました。
ですが、Loopの中に入れたことで、エラーの原因が違うことに気づきましたので、
質問本文を更新させて頂きます。ありがとうございます！

[退会済みユーザー]

Set objDoc = wdApp.Documents.Add()
上記を削除してもエラーは起こりますか？

[mochinn]

削除しても同様でした。。。