こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

締切り済みの質問

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

投稿日時 - 2009-10-24 23:00:38

QNo.5393860

すぐに回答ほしいです

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(1)

ANo.1

こんにちは。

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

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

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

投稿日時 - 2009-11-08 15:19:24

あなたにオススメの質問