word 差し込み印刷 作業項目毎に印刷するには。

質問

すいませんどなたか教えてください。
現在、差し込み印刷で一覧表を作成しています。
Excelのデータリストからwordへの差し込み印刷です。
Excelのデータ形式は、
１レコード　作業　作業内容　単価　金額　

一覧表の印字は、
作業A
　作業内容A　単価　金額
　作業内容B　単価　金額
作業B
　作業内容C　単価　金額
　作業内容D　単価　金額
　作業内容E　単価　金額
作業C
　作業内容F　単価　金額

となる様にしたいのですが、作業項目の制御と作業内容項目が上手く行きません。
すいません、宜しくお願い致します。

回答No.2

masnoske

Wordの差込印刷は、詳しくないのですが、

Excel の1行目にはフィールド名が　作業(A列)、作業内容(B列)、単価(C列)、金額(D列)　と入力されていて、データが2行目から入力されているとします。
さらにA列で昇順（または降順）でソートされているとします。

この状態で セルE2 に次の数式を入力します。
=IF(A2<>A1,A2 & CHAR(10) & CHAR(9) & B2 & CHAR(9) & C2 & CHAR(9) & D2,CHAR(9) & B2 & CHAR(9) & C2 & CHAR(9) & D2)

この数式をE列の下までコピーします。
これで E列を差し込めばどうでしょうか。
私のWordの知識では、列全体を差し込む方法がわかりませんが。。。

ちなみに、CHAR(10) は改行コード、CHAR(9) はTABコードです。
CHAR(10) は、セルの書式を [折り返して全体を表示する] に設定すれば目で確認できます。
TABコードは、Excelが表示する時に無視するので、目では確認できませんが、メモ帳などに貼り付ければ、確認できます。

私なら CHAR(9) の部分を全角スペースに置き換えるなどして Excel 印刷しますが。

回答No.1

imogasi

ワードの差し込み印刷でやる課題としては、内容が複雑すぎるのでは？
差し込み印刷には、ＶＢＡで言えば、IF {MERGEFIELD ・・、フィルタ、ソートといった使い方もあり、複雑な処理もできるようだが、英文の解説記事しか探せないのが多い。
書籍は、これに関した説明がある解説本などは探すのが困難と思うし、ＷＥＢでも（邦文）記事が少ないだろう。
（１）ＥｘｃｅｌデータをＶＢＡで採って、ＷｏｒｄＶＢＡでワードの表（Ｔａｂｌｅｓ）のセルに、１受注会社分のデータをセットして、PrintOutし、その後表のセルの中身を、次の受注先に変化させて、印刷する、これを請求先分だけ繰り返す。
宛先はエクセルからとり、不動文字（決まり文句部分）などはワードで作成しておく。
（２）すべてをエクセルＶＢＡでやるという人（場合）も多いかも。
なぜワードに広げるのか？
（３）エクセルなら、表形式のデータから、関数で請求書シートの各欄に、データを持ってきて、PrintOut１行だけのＶＢＡを使えば済む、方法もあるよ。
ーー
ただし（１）は、ＷｏｒｄＶＢＡを多少勉強せねばならないが、仕事の課題だと、ＶＢＡを使わないとどうしようもない。
普通は本件など、システムとして、ソフト作成会社に頼むとか、専用ソフト（弥生ＸＸのような）を使うものだろう。
ーー
データ実例を、少し丁寧に書いてほしい。
発注会社　作業区分　作業内容　単価　　数量　金額
山田工業　切り抜き　打ち抜き　２００　２　　４００
　　　　　切り抜き　研き　　　　５０　２　　１００
近藤加工　・・
ーー
出足は悪いが、良い回答が出るのをしばらくはまつことだ。