エクセルvbaから非同期でwordのvbaを呼び出したい

Question

エクセルvbaから非同期でwordのvbaを呼び出したいです。

WIndowsScriptHostObjectModelに参照設定し
エクセルVBAに
以下の記述をしました。

Dim obj As IWshRuntimeLibrary.WshShell
Set obj = New IWshRuntimeLibrary.WshShell
Dim ret As Long

ret = obj.Run("C:\Users\●●●\Desktop\ワードでテスト.docm")

Debug.Print "非同期かどうかの確認用"

Wordのファイルが起動するのは確認できたのですが、

ワードでテスト.docm
のTestモジュールにある、TestWordを呼び出すにはどうすればよいのでしょうか。

どうぞよろしくお願いいたします。

Answer 1

Shell関数なら非同期に実行できます。
ファイル指定やマクロ指定はコマンドラインスイッチを使用します。
Microsoft Office 製品のコマンド ライン スイッチ

/t filename
/m[macroname]

呼び出しは以下のような感じ。
Winword.exeの場所は環境に合わせて下さい。またTestWordはPublicである必要があります。

Shell "C:\Program Files\Microsoft Office\Office12\Winword.exe /t C:\Users\●●●\Desktop\ワードでテスト.docm" /mTestWord), 1

Comments

[inuo55]

どうもありがとうございます。
shell関数は
Shell(pathname[,windowstyle])　のようにつかうところまでわかったのですが、
pathnameの箇所にWordのマクロを指定するのはどのような記述か悩んでおります。

[sazi]

追記しました。

[inuo55]

どうもありがとうございました。とても助かりました。
コマンドラインスイッチもしらなかったので勉強になりました。

Answer 2

手元にすぐに試せる環境がなく、ただググっただけの情報で恐縮ですが、
エクセルからワードマクロを実行する方法を教えてください。https://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q13152489523
が参考になりますでしょうか。

Comments

[inuo55]

どうもありがとうございます。
GetObject　の方法だと、同期処理になり、ワードのvbaが終わらないと、次に進めないので困っていました。
WshShellを使うと、ワードの処理が終わらなくても先に進めたのですが、ワードのvbaを呼び出せなくて、困っている次第です。。
調べてくださりありがとうございました。

[segavvy]

失礼いたしました。Word.Application.Runで実行完了を待ってしまうという意味ですね。

ちょっとスマートではないのですが、Word.Application.OnTime で1秒後に実行とかすると、非同期でいけそうでしょうか。（触れる環境がなくて未確認です……）
https://docs.microsoft.com/ja-jp/office/vba/api/word.application.ontime