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
-------------------------------------------------------
A 回答 (2件)
- 最新から表示
- 回答順に表示
No.2
- 回答日時:
そうなると・・私には分かりませぬ。
一応最後の足掻き・・ということで、Wscript.shellの
http://technet.microsoft.com/ja-jp/scriptcenter/ …
で処理前後に書き換えるとか・・
セキュリティの面でOSから蹴られるかもしれない。(未検証)
私からは以上です。
No.1
- 回答日時:
この文書を開くと、次のSQLコマンドが実行されます
でGoogleと
http://support.microsoft.com/kb/825765/ja
だそうです。
レジストリを変更してセキュリティを下げることになります。
頑張ってAccessのレポートで完結するか、Wordで・・の二者択一かと?
早速のご回答ありがとうございます。
レジストリ変更ですと他の差し込み文書もメッセージが表示されなくなってしまうので
このプログラム内で一時的にアラートオフにしたいです。
また、Wordファイルでファイルを保存したいので、レポートでの対応は考えていません。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) Wordマクロで指定したフォルダ名に保存する方法について 8 2022/12/13 11:35
- Visual Basic(VBA) エクセルのマクロを使ってメールを送る方法について教えてください 2 2022/03/29 01:36
- Excel(エクセル) フォルダ内のワードファイルをPDFに一括変換するVBA 3 2023/06/09 16:51
- Visual Basic(VBA) VBA 参照先で選んだファイルをコピーし、出力先に別名で保存したい 8 2022/05/13 20:37
- Visual Basic(VBA) 【VBA】写真の貼り付けコードがうまく機能しません。 5 2022/09/01 18:43
- Visual Basic(VBA) VBAでoutlook365が起動しません。 4 2022/08/25 13:31
- その他(Microsoft Office) マクロVBAについて 1 2022/09/06 18:12
- Visual Basic(VBA) vbaのエラー対応(実行時エラー7:メモリが不足しています) 4 2023/04/24 00:20
- Visual Basic(VBA) 【VBA】写真の縦横比を変えずに貼り付ける 5 2023/06/13 11:42
- Visual Basic(VBA) 【追加】ファイルを閉じてダイアログで保存した時だけ処理の実行をする 3 2022/03/23 15:43
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
AccessからWordの差し込み印刷文書を印刷するVBAについて教えてください
Access(アクセス)
-
アクセスのボタンから指定のワードファイルを開く
Access(アクセス)
-
ACCESSのクエリで抽出したデータをWord文書へ差込印刷したいです。
Windows Me・NT・2000
-
-
4
ACCESS VBA からのワードファイルの起動
その他(データベース)
-
5
ACCESSからVBAでWORDの印刷を..
その他(データベース)
-
6
エクセルのVBAとワードを使った差し込み印刷
Word(ワード)
-
7
Accessのレポート出力をWordに出力する方法
その他(データベース)
-
8
ACCESS VBAからWordのテンプレートに
Visual Basic(VBA)
-
9
ACCESSのレポートにWORDで作った文書を貼り付けるには?
Access(アクセス)
-
10
VBA ポップアップが表示されたら常に「はい」を選択したい
Access(アクセス)
-
11
Accessのフォームにて、詳細行のボタンを行の内容により、表示/非表
その他(Microsoft Office)
-
12
SQL文で パラメータが少なすぎます エラー
Access(アクセス)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VS2019のコンソールC++からGn...
-
コマンドプロンプト
-
バッチ終了時にDOS窓を閉じるコ...
-
ショートカットをデスクトップ...
-
VBSでタイマー
-
バッチファイル 文字列にスペ...
-
HPの自動更新
-
SSH接続でwindowsサーバのコマ...
-
コマンドプロンプトをクリック...
-
ftp受信確認
-
make test って何をするための...
-
大量のフォルダからひとつのフ...
-
同名のフォルダを検索・削除したい
-
VBAでワークシートを引数として...
-
コマンドプロンプトのエラーに...
-
ファイルのサイズを0にする or ...
-
コマンドプロンプトの「%1」と...
-
Python CSVファイルについて
-
virualboxで仮想マシンフォルダ...
-
PCのアプリケーションを別のPC...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
バッチ終了時にDOS窓を閉じるコ...
-
バッチファイル 文字列にスペ...
-
make test って何をするための...
-
コマンドプロンプトをクリック...
-
ショートカットをデスクトップ...
-
バッチファイルを使ってテキス...
-
シェルの「:コマンドが見つか...
-
ftpコマンドを実行すると「425 ...
-
コンピュータ名をファイル名に...
-
バッチコマンドのIF文(条件...
-
SSH接続でwindowsサーバのコマ...
-
findstrでヒットした1行前の文...
-
コマンドプロンプトで、特定の...
-
FTP送信エラーの検知について
-
DOSコマンドで指定日数よりも過...
-
ftpコマンド出力結果の取得
-
Pythonで単純にファイルを結合...
-
コマンドプロンプトを最小化し...
-
AccessVBAで実行時間を指定する...
-
2つ目の「pause」は無効?
おすすめ情報