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

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

お礼

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

回答No.1

nicotinism

この文書を開くと、次のSQLコマンドが実行されます
でGoogleと
http://support.microsoft.com/kb/825765/ja
だそうです。
レジストリを変更してセキュリティを下げることになります。
頑張ってAccessのレポートで完結するか、Wordで・・の二者択一かと？

お礼

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