Word VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


221 / 308 ツリー ←次へ | 前へ→

【274】マクロの自動実行の方法 ぽっぽ 05/4/5(火) 22:20 質問[未読]
【276】Re:マクロの自動実行の方法 さぼさぼ 05/4/6(水) 10:48 回答[未読]
【277】Re:マクロの自動実行の方法 ぽっぽ 05/4/6(水) 12:42 お礼[未読]

【274】マクロの自動実行の方法
質問  ぽっぽ  - 05/4/5(火) 22:20 -

引用なし
パスワード
   はじめまして。ぽっぽです。

Accessデータベースのテーブルから、
Wordに差し込み印刷したいと思っています。
Accessとの連結はうまくいき、
Word側で差し込み印刷ヘルパーより手動で[差し込み]を実行すると、
正常に動作します。

この動作を、AccessからWordを呼び出して開いた際に、
自動的に差し込まれるようにしたいです。

その動作をマクロに記録し、
それをそのまま利用しているのですが、
Wordファイルを開いた際にマクロが自動実行されません。

マクロ名が間違っていますでしょうか。
(他のサイトでAuto_Execというのがあり試しましたがダメでした)
自動実行のための設定が足りないのでしょうか。

WordVBAにつきましては全くの初心者で、
つまらない質問ですが、
何卒、ご教授のほど、よろしくお願いしますm(_ _)m


Sub AutoExec()
'
' AutoExec Macro
' 記録日 2005/04/05 記録者 Poppo'

  Application.WindowState = wdWindowStateNormal
  With ActiveDocument.MailMerge
    .Destination = wdSendToNewDocument
    .MailAsAttachment = False
    .MailAddressFieldName = ""
    .MailSubject = ""
    .SuppressBlankLines = True
    With .DataSource
      .FirstRecord = wdDefaultFirstRecord
      .LastRecord = wdDefaultLastRecord
    End With
    .Execute Pause:=True
  End With
  
End Sub

【276】Re:マクロの自動実行の方法
回答  さぼさぼ  - 05/4/6(水) 10:48 -

引用なし
パスワード
   ▼ぽっぽ さん:
AutoOpenでやってみて下さい。
AutoExecでは文章がロードされる前に実行されてしまいますので
上手くいかないのだと思います。

>はじめまして。ぽっぽです。
>
>Accessデータベースのテーブルから、
>Wordに差し込み印刷したいと思っています。
>Accessとの連結はうまくいき、
>Word側で差し込み印刷ヘルパーより手動で[差し込み]を実行すると、
>正常に動作します。
>
>この動作を、AccessからWordを呼び出して開いた際に、
>自動的に差し込まれるようにしたいです。
>
>その動作をマクロに記録し、
>それをそのまま利用しているのですが、
>Wordファイルを開いた際にマクロが自動実行されません。
>
>マクロ名が間違っていますでしょうか。
>(他のサイトでAuto_Execというのがあり試しましたがダメでした)
>自動実行のための設定が足りないのでしょうか。
>

【277】Re:マクロの自動実行の方法
お礼  ぽっぽ  - 05/4/6(水) 12:42 -

引用なし
パスワード
   さぼさぼさん、こんにちは。

Subの名前をAutoOpenに変えてみたところ、
思うような動作になりました!

ありがとうございましたm(_ _)m

221 / 308 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
207137
(SS)C-BOARD v3.8 is Free