Excel VBAで呼び出したWordが文書への差し込みボタンが効かない状態で開く

質問

以下のExcel VBAでWordは開くのですが、新規文書への差し込みボタンが、活きていないです。参照設定は、Microsoft Word 11.0 Object Libraryを入れています。
どうしたらいいのでしょうか？困っています。

Sub Wordを開き、差し込み印刷する()
Dim ワード As Object
Dim ワード文書 As Object
Dim フルパス As String

フルパス = "D:\案内状.doc" 　　　　　　　　　'フルパスを作成
Set ワード = CreateObject("Word.Application") 'Wordを起動
ワード.Visible =True 'Wordを表示
Set ワード文書 = ワード.documents.Open(フルパス) 'Word文書を開く
End Sub

回答No.1

Wendy02

こんにちは。

誰も付けなかったようですが、カテゴリが違っていかもしれませんね。
ともかく、オートメーション・オブジェクト　CreateObject("Word.Application")では、差し込み印刷は、別のオブジェクトになるので、おそらくは動きません。たぶん、通常の設定では、SQLSecurity が働いているので、それがブロックされているのだと思います。

動かす方法がないわけではないのですが、それ自体は、Word のセキュリティの変更になるので、VBAからですと、レジストリを変更しなくてはなりません。出来ないわけではありませんが、そこまで、Word VBAで変更する必要があるか分かりません。

それで、Word　からではありませんから、Excelの場合は、Shell でWordを呼び出したらよいのではないかと思います。