Access2010を使用しています。
フォームにボタンを設置し、
そのボタンをクリックすると
「WORD」というテーブル書出しクエリが実行されて、
その実行結果を
「form.dotx」というWordファイルに差込みしたいと思っています。
Private Sub コマンド39_Click()
DoCmd.OpenQuery "WORD"
Dim oDoc As Object
Set oDoc = GetObject("\\XXX\XXX\form.dotx")
oDoc.Application.Visible = True
End Sub
上記のようにマクロを書いてみたんですが
実行すると
WORDファイルを開く前のメッセージボックス
”この文書を開くと、次のSQLコマンドが実行されます”
がウィンドウの最背面に表示されてしまい、
Accessほかにひらいているものをひとつひとつ最小化すると
やっとそのメッセージボックスが表示されるような状態です。
Wordのレジストリをいじって
このメッセージボックスを表示させない方法もあるようですが
http://free-style.mkstyle.net/web/pc/sql.html
社内で共有して使うものなので
できればレジストリを操作するようなことはしたくありません。
マクロを実行したら
Wordを開く際のメッセージボックスが最前面に表示されるような方法は
あるのでしょうか?
ご教授お願いいたします!
No.1ベストアンサー
- 回答日時:
VBAでレジストリを操作する方法もあるのですが、それはやめておきます。
ただ、多くのソフトウェアは、レジストリを操作しているのですが、他のPCで、作ったままのVBAでは、アンチウィルスに引っかかてしまいます。今回は、私の場合、OSの関係か、そのコードで再現はできなかったのですが、現象は理解できます。
Dim fn As String '一応、念の為にファイル名を別書きにしました。
fn = "\\XXX\XXX\form.dotx"
CreateObject("Wscript.Shell").Run fn
こんな風にすれば、SQLは生きた状態で、Wordは前面で開くはずです。
Word自体を前面に持ってくる方法もありますが、とりあえず、これで試してみてください。
ご回答ありがとうございます!
すごい!できましたー!!!!
うれしいです!いろんなサイトを参考に色々やっていたんですが
全然うまくいかなくて・・・
一発で解決してとてもうれしかったです!
大変ありがとうございました!
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) フォルダ内のワードファイルをPDFに一括変換するVBA 3 2023/06/09 16:51
- Visual Basic(VBA) VBA Bookの表示、非表示 1 2022/09/16 20:44
- Visual Basic(VBA) エクセルのマクロについて教えてください。 7 2023/07/04 09:18
- Excel(エクセル) 【マクロ】エラーが発生⇒実行時エラー58既に同名のファイルが存在 5 2022/08/31 10:03
- Excel(エクセル) 【マクロ】マクロが保存されているエクセルとは、別のエクセルブックの全シートの非表示列を再表示したい 1 2022/12/24 20:48
- Word(ワード) Word 2016のマクロを Word 2021のWordでキー動作させたい 3 2023/04/12 16:14
- Word(ワード) PCで作ったwordをスマホで編集しようとすると「このファイルは読み取り専用です。」と表示される。 3 2023/05/30 14:51
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 2 2023/05/23 16:28
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 2 2023/01/23 17:13
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2023/03/07 14:05
このQ&Aを見た人はこんなQ&Aも見ています
-
風水の観点で選ぶ観葉植物とは?置き場所や上げたい運気ごとの注意点を紹介!
観葉植物で運気をアップするコツを、風水デザイン1級建築士の福島昌彦さんに伺った。
-
アクセスのボタンから指定のワードファイルを開く
Access(アクセス)
-
ACCESS VBA からのワードファイルの起動
その他(データベース)
-
フォームウィンドウを最前面に表示したい(ACCESS)
Microsoft ASP
-
-
4
AccessからWordの差し込み印刷文書を印刷するVBAについて教えてください
Access(アクセス)
-
5
vbaで「最前面に」とする方法は?
Access(アクセス)
-
6
Accessを開きなおすとテキストボックスの値がエラー#Name?になる
その他(データベース)
-
7
アクセスからエクセルファイルを開きたい
Access(アクセス)
-
8
ACCESSのクエリで抽出したデータをWord文書へ差込印刷したいです。
Windows Me・NT・2000
-
9
AccessのRefresh・Requery・Repaintの違い
Access(アクセス)
-
10
AccessからExcelのファイルを起動する
その他(データベース)
-
11
【Access】クエリで抽出したデータをCSV形式でエクスポートできますか?
Access(アクセス)
-
12
テキストボックスに入れた内容をAccessのテーブルに登録する方法を教えてください。
Visual Basic(VBA)
-
13
ACCESSのレポートにWORDで作った文書を貼り付けるには?
Access(アクセス)
-
14
アクセスで#エラーを表示させない方法は?
Access(アクセス)
-
15
AccessからExcel最小化
その他(プログラミング・Web制作)
-
16
Accessを使って日付を比較したい
その他(Microsoft Office)
-
17
YES/NO型の値
Excel(エクセル)
-
18
レコードを保存するコード アクセスvba
その他(Microsoft Office)
-
19
サブフォームに対してGoToRecordするには?
その他(Microsoft Office)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルの表にヘンな枠が・・・
-
人生をやめる決意をしても中々...
-
pingは正常なのにtracerouteで...
-
バッチファイル内の各コマンド...
-
SONYの音楽ソフト「x-アプリ」...
-
emacsでCtrl+zを押してサスペン...
-
LD_LIBRARY_PATHって?
-
Openイベントを開始させないで...
-
linuxサーバーのキャッシュをク...
-
windowsからtelnetでログインし...
-
モジュール違反て何?
-
エクセルからアクセスのプロシ...
-
ラズベリーパイに関して質問で...
-
python IDLEで訂正、削除のやり...
-
Windows8.1でCTCPを有効にする方法
-
シャットダウンバッチがうまく...
-
拡張子(wsf)の実行
-
win10 バッチファイルの起動時...
-
シリアル/パラレル実行について
-
taskkill をバッチ処理できない。
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
SONYの音楽ソフト「x-アプリ」...
-
エクセルの表にヘンな枠が・・・
-
pingは正常なのにtracerouteで...
-
LD_LIBRARY_PATHって?
-
windows10のごみ箱をrd /s /q C...
-
バッチファイル内の各コマンド...
-
python IDLEで訂正、削除のやり...
-
shutdownコマンド実行の残り時...
-
taskkill をバッチ処理できない。
-
Openイベントを開始させないで...
-
Check Diskは定期的に実行した...
-
ROBOCOPY cmdで正常に処理され...
-
Linux のシェルスクリプトの強...
-
最初の一度しか実行されないロ...
-
エクセルからアクセスのプロシ...
-
linuxサーバーのキャッシュをク...
-
Macでlsした際の、ファイル名の...
-
SPI非言語の問題 解説お願いします
-
windowsからtelnetでログインし...
-
サーバでログオフするとアプリ...
おすすめ情報