ExcelからWordのブックにあるマクロを動かす

いつもお世話になっております
タイトル通りなのですが、ExcelからWordのブックにあるマクロを動かすのは可能なのでしょうか？

可能であれば、コードをご教示ください。


Wordのブックの名前　　Sample1
Wordにあるマクロの名前　test1

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

No.1 ベストアンサー 回答者： めぐみん_ 回答日時： 2021/03/13 19:33

参考：

https://detail.chiebukuro.yahoo.co.jp/qa/questio …

Sub megu()
Dim wdApp As Object
Dim wd As Object

Set wdApp = CreateObject("Word.Application")
wdApp.Visible = True
wdApp.Activate
Set wd = wdApp.Documents.Open(ThisWorkbook.Path & "\Sample1.docm")

Call wdApp.Run("test1")

End Sub

ワードは閉じているとして。

この回答へのお礼

ありがとうございます。
とても助かります。
何回か回答頂き感謝しております。

お礼日時：2021/03/13 19:36