次の方法で、MS Word の ThisDocument モジュールにコードを追加する VB.NET プログラムがあります。
wrdDoc.VBProject.VBComponents("ThisDocument").CodeModule.AddFromString(sCode)
次のサブを作成します。
Public Sub Example_Click()
Msgbox "Working"
End Sub
以前はコマンド ボタンのクリック イベントを介してこれを呼び出していましたが、COM アドインの一部として作成されたリボン ボタンから呼び出す方が望ましいでしょう。
ボタンのクリック サブに次のコードを追加することで、アドインでグローバル マクロを正常に呼び出すことができました。
Globals.TestWordApp.Application.Run("Macro1")
ただし、ThisDocument に含まれるコードを実行しようとする試みはすべて失敗しました。
どんな助けでも大歓迎です。