AccessVBAから差し込みWORD起動について

AccessVBAで下記のようなコードを記述して
差し込み文書のWORDファイルのデータを更新して、別名保存・終了をしています。
[ Set objOrg = GetObject(strOrgNm)]の部分でWORD起動する際、
「この文書を開くと、次のSQLコマンドが実行されます。」というメッセージが表示されます。
複数のファイルについて処理するため、このメッセージを表示しないようにさせたいのですが
良い方法がありますでしょうか。

--＜コード＞--------------------------------------------
Dim strOrgNm As String　　' 差し込み文書元ファイル名
Dim objOrg As Object
Dim objTemp As Object


Set objOrg = GetObject(strOrgNm)
Set objTemp = GetObject(Class:="Word.Application")


With objOrg
　With .MailMerge
　　.Destination = 0
　　.SuppressBlankLines = True

　　With .DataSource
　　　.FirstRecord = 0
　　　.LastRecord = DCount("*", "テスト用クエリ")
　　End With

　　.Execute Pause:=False

　End With

　objTemp.Application.ActiveDocument.SaveAs FileName:=pstrOrgNm & "_test"
　objTemp.Application.ActiveDocument.Close

End With
-------------------------------------------------------

No.2 回答者： nicotinism 回答日時： 2012/09/05 12:25

そうなると・・私には分かりませぬ。

一応最後の足掻き・・ということで、Wscript.shellの
http://technet.microsoft.com/ja-jp/scriptcenter/ …
で処理前後に書き換えるとか・・
セキュリティの面でOSから蹴られるかもしれない。（未検証）
私からは以上です。

この回答へのお礼

再度のご回答ありがとうございます。
参考にさせていただきます。

お礼日時：2012/09/07 09:29

No.1 回答者： nicotinism 回答日時： 2012/09/05 10:55

この文書を開くと、次のSQLコマンドが実行されます

でGoogleと
http://support.microsoft.com/kb/825765/ja
だそうです。
レジストリを変更してセキュリティを下げることになります。
頑張ってAccessのレポートで完結するか、Wordで・・の二者択一かと？

この回答へのお礼

早速のご回答ありがとうございます。
レジストリ変更ですと他の差し込み文書もメッセージが表示されなくなってしまうので
このプログラム内で一時的にアラートオフにしたいです。
また、Wordファイルでファイルを保存したいので、レポートでの対応は考えていません。

お礼日時：2012/09/05 11:33