差し込み印刷でリボンにある「結果のプレビュー」をクリックしたときのマクロ

Anonymous
2019-06-28T02:27:42+00:00

vb.netのformで差し込み印刷時のマクロを実行しようとしています。

'差し込み

        Path = "C:\Users\・・・\Documents\My Data Sources"

        wdApp = CreateObject("Word.Application")

        With wdApp

            'word文書を開く

            .visible = True

            .documents.open("C:\AtenaPrint" & Futou)

            '差し込み

            'ActiveDocument.MailMerge.MainDocumentType = wdFormLetters

            wdApp.ActiveDocument.MailMerge.OpenDataSource(Name:=Path & Meibo, ConfirmConversions:=False, ReadOnly:=False, LinkToSource:=True, AddToRecentFiles:=False,

                PasswordDocument:="", PasswordTemplate:="", WritePasswordDocument:="", WritePasswordTemplate:="", Revert:=False, Format:=0,

                Connection:="Provider=Microsoft.ACE.OLEDB.12.0;User ID=Admin;Data Source=Path & Meibo;Mode=Read;Extended Properties=""HDR=YES;IMEX=1;"";Jet OLEDB:System database="""";Jet OLEDB:Registry Path="""";Jet OLEDB:Engine Type=37;Jet OLEDB:Database" _

                , SQLStatement:="SELECT * FROM Sheet1$", SQLStatement1:="", SubType:=2)

            '.ActiveDocument.MailMerge.ViewMailMergeFieldCodes = wdToggle

        End With

コードの最後の

   '.ActiveDocument.MailMerge.ViewMailMergeFieldCodes = wdToggle

が「結果のプレビュー」をクリックしたマクロかな?と思って質問させていただきます。

vb.netで「開始」をして見ますと,wdToggle のところでエラーになりますが,対処法がわからずこまっています。

vb.netのformから実行する**「結果のプレビュー」をクリックしたマクロ**はどのように書くのでしょうか?お教え願います。

開発者テクノロジ | Visual Basic for Applications

ロックされた質問。 この質問は、Microsoft サポート コミュニティから移行されました。 役に立つかどうかに投票することはできますが、コメントの追加、質問への返信やフォローはできません。

0 件のコメント コメントはありません

1 件の回答

並べ替え方法: 最も役に立つ
  1. Makapu 92,285 評価のポイント ボランティア モデレーター
    2019-06-30T22:33:39+00:00

    goodwaveさん、こんにちは。

    ご質問の内容から、開発者向けの<**Msdnフォーラム**>の方が情報が集まり易いと思います。

    Msdn フォーラム

    よろしければご利用になってみて下さいね。

    この回答は役に立ちましたか?

    0 件のコメント コメントはありません