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文書を開く
A 回答 (1件)
- 最新から表示
- 回答順に表示
No.1
- 回答日時:
>Excelの方では各行にチェックボックスと一つの印刷ボタンを
配置しています。
●印刷ボタン--1つ--印刷(Fax送信状印刷)ゴーサインのためのボタン。---判ります。
●チェックボックス--行数だけ、多数?--その会社・宛先にFAXするかどうかのボタンですね。折角エクセルのセルというものがありながら、またなぜチェックボタンを貼り付けるのか判らない。それは良いとして、LinkedCellと言うのが、プロパティにあり、ここをA1,A2とかに設定しておけばTrueとかをセットしてくれますが。Trueなんて言葉を嫌ったのかな。
●ExcelVBAで2002とかでも、コントロール配列が使えないとおもうので、
If CheckBox1.Value = True Then
Range("A2").Select
ActiveCell.FormulaR1C1 = "1"
End If
を行数(社数?)個コーディングを書いているのですか。
私も何とか繰り回しに持って行こうとしたが、出来なかった。
Sub test06()
If Worksheets("sheet1").CheckBox1.Value = True Then
Range("A2").Select
ActiveCell.FormulaR1C1 = "1"
End If
End Sub
でないと動かなかった。
せめて
If Worksheets("sheet1").CheckBox1.Value = True Then Cells(2, 1) = 1と1行になりますよ。
●Sub test07()
Dim ワード As Object
Dim ワード文書 As Object
Dim フルパス As String
フルパス = "C:\My Documents\FAX送信状.doc" 'フルパスを作成
Set ワード = CreateObject("Word.Application") 'Wordを起動する
ワード.Visible = True 'Wordを表示する
Set ワード文書 = ワード.documents.Open(フルパス) 'Word文書を開く
End Sub
でテストしたが、ワード文書を開くところまでは、普通のスピードで直ちに(約3秒)開きましたよ。私のCPU、メモリ、ディスクは最定レベルですが。
●このあとワードでのVBAで差しこみ印刷のコーディングが質問ですか。質問内容が良く判らない。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) Excelで下記のようにマクロを作ったところ、一回目は実行できたのですが、二回目以降「実行時エラー1 1 2022/03/25 08:08
- Excel(エクセル) フォルダ内のワードファイルをPDFに一括変換するVBA 3 2023/06/09 16:51
- ノートパソコン Windows11homeを新しく購入し、初期設定をしています。 前のパソコンでは無線のFAX機や有 5 2023/04/18 19:50
- Visual Basic(VBA) VBAでoutlook365が起動しません。 4 2022/08/25 13:31
- ノートパソコン 至急!Wordが消えた PC を修理に出したのですが、今日自分のPCを開いてみるとデスクトップに表示 6 2022/10/24 21:29
- Visual Basic(VBA) エクセルのマクロを使ってメールを送る方法について教えてください 2 2022/03/29 01:36
- Visual Basic(VBA) 数式が消える 1 2023/03/19 16:55
- CAD・DTP A3のWORDファイルをTIFFに変換したい 6 2022/12/15 16:00
- Word(ワード) マイクロソフト365を購入し、Wordを使用しているのですが、Wordに分割印刷(ポスター印刷)って 2 2023/04/09 18:17
- プリンタ・スキャナー Wordで作った宛名ラベルを印刷しようと思って、プリンターの上のところにある、手差しトレイ的なところ 3 2022/11/17 18:40
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ワードの文章を一部、黒くマス...
-
PDFで送られてきた書類を記...
-
複数のワード文書を一枚の紙に...
-
ワードで作った文書のPDF化
-
ネットカフェで大事な書類をつ...
-
Wordで複数画面の切り替えの方法
-
ワードで自動的に未来の日付を...
-
エクセルで文書作成してはいけ...
-
ワード2023でテキストボックス...
-
[PDFファイル作成] A4ワ...
-
ブラウザ上で、ワード文書を表...
-
Publisherとワードの違いってな...
-
ワードで作成したファイルのFB...
-
ExcelからWordの差込印刷を実行...
-
ワードアートが印刷されない
-
ワードの範囲指定ができない
-
DocuWorks Desk について、束ね...
-
ワードが揺れる
-
原稿用紙に作文をしたいけど、...
-
ワードの入力文字が書いている...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
PDFで送られてきた書類を記...
-
ワードの文章を一部、黒くマス...
-
ワードアートが印刷されない
-
ワードで作成したファイルのFB...
-
エクセルで文書作成してはいけ...
-
DocuWorks Desk について、束ね...
-
ネットカフェで大事な書類をつ...
-
ワード 文字が二重に重なって...
-
ワードの文書が削除できないの...
-
複数のワード文書を一枚の紙に...
-
word背景色とワードアート空間...
-
ワードで自動的に未来の日付を...
-
Wordで複数画面の切り替えの方法
-
Publisherとワードの違いってな...
-
ワードが揺れる
-
ワードで作った文書のPDF化
-
ワードの範囲指定ができない
-
添付ファイル PDFファイル...
-
大至急、ワードで作った文章を...
-
txtはワードで開くのは間違いで...
おすすめ情報