ExcelからWordの差込印刷を実行したい
WordのFAX送信表にExcelのデータ(宛先)を差込印刷で設定していて、
Excelの方では各行にチェックボックスと一つの印刷ボタンを
配置しています。
ExcelのVBAでチェックがついていたら、A列の値を1として
Wordを開き印刷したいのですが、Wordの起動に時間がかかってしまいます。
Wordの方にはクエリオプションでA列=1と設定してあります。
データはExcelでなくても構わないのですが、
何かよい方法はないでしょうか?
コードは以下の通りです。
If CheckBox1.Value = True Then
Range("A2").Select
ActiveCell.FormulaR1C1 = "1"
End If
Dim ワード As Object
Dim ワード文書 As Object
Dim フルパス As String
フルパス = "C:\Fax送信表.doc" 'フルパスを作成
Set ワード = CreateObject("Word.Application") 'Wordを起動する
ワード.Visible = True 'Wordを表示する
Set ワード文書 = ワード.documents.Open(フルパス) 'Word文書を開く
お礼
解決しました。 ありがとうございました。