差込印刷について

質問

下記のようなエクセルの表があります。
｜　　｜＝1つのセルです。見づらくてすみません。

　｜ 宛先 ｜商品名｜　
　｜　Ａ　｜　ａ　｜
　｜　Ａ　｜　ｂ　｜
　｜　Ａ　｜　ｃ　｜
　｜　Ｂ　｜　ａ　｜
　｜　Ｂ　｜　ｂ　｜
　｜　Ｃ　｜　ａ　｜
　｜　Ｃ　｜　ｂ　｜

Ａ＝Ａ，ａ≠ａです。　

これを、ＷＡＯＲＤの差込印刷を利用して、Ａ－ａｂｃ、Ｂ－ａｂ、Ｃ－ａｂ…というように分けることは可能でしょうか？「送る商品名（ａｂｃ）入りの文書を宛先（ＡＢＣ）ごとに作成したいと考えているのですが…。
わかりづらい説明で申し訳ありませんが、どなたかご教授ください。

回答No.2

tokpy · ベストアンサー

＃1です。あれから考えまして上手い方法が見つかりました。

Excel側のデータを次のように作ります。C行は，エクセルのセルの右下の黒い四角（フィルハンドル）をドラッグして，最初の式をコピーして作ります。
C列には，次の行が同じ宛先の場合は次の行の商品名，そうでなければFALSEが入ります。

　　　A列　　B列　　　C列
1行｜ 宛先 ｜商品名１｜商品名２
2行｜　Ａ　｜　ａ　　｜=IF(A2=A3,B3)
3行｜　Ａ　｜　ｂ　　｜=IF(A3=A4,B4)
4行｜　Ａ　｜　ｃ　　｜=IF(A4=A5,B5)
5行｜　Ｂ　｜　ａ　　｜=IF(A5=A6,B6)
6行｜　Ｂ　｜　ｂ　　｜=IF(A6=A7,B7)
7行｜　Ｃ　｜　ａ　　｜=IF(A7=A8,B8)
8行｜　Ｃ　｜　ｂ　　｜=IF(A8=A9,B9)

Word側のデータです。
１つ目の商品名は普通にいれます。
２つ目の商品名以降は，EXCELのC列に２つ目の商品名が入っていればそれを表示してレコードを１つすすめ，C列にFALSEが入っていれば何もしません。商品を表示するためにIF～THEN～ELSEのフィールドコードと，レコードを次にすすめるためにNEXT IFのフィールドコードを使っています。

宛先
　{MERGEFIELD 宛先}
商品名
　{MERGEFIELD 商品名１}
　{IF {MERGEFIELD 商品名２}<>"FALSE" "{MERGEFIELD 商品名２}" ""}{NEXT IF{MERGEFIELD商品名２}<>"FALSE"}　　※１
　{IF {MERGEFIELD 商品名２}<>"FALSE" "{MERGEFIELD 商品名２}" ""}{NEXT IF{MERGEFIELD商品名２}<>"FALSE"}
　：
　：
※１の行を同時発送する商品の数を見越してコピーしておく

これで上手く処理できそうです。
こういうことをしたい場合は普通ACCESSを使うみたいですが，ACCESSは持っていない人が多いのでEXCELとWORDでやる意味はあると思います。（あーしんどかった。私も今度からは手抜きできそうです。）

回答No.1

tokpy

答えになっていなくてごめんなさい。

私も同じようなことをしようと思った事があります。
Word側で，Next Record IfとかIf・・・Thenフィールドコードを組み合わせて作ろうと思いました。
Wordの差込印刷機能は，表示されていなくても最後にNext Recordが実行されてしまう仕様のようです（←これが曲者）。また，Wordのフィールドコードには，Next Recordはありますが，レコード番号を戻すフィールドコードがありません。そのために完全オートマチックというのは難しいようです。

3列目に（例はc2に入れる式）
　=if(A3=A2,1,0)
というような列を作ります。これは，次の行と比較して同じグループだったら1，そうでなかったら0を返す式です。（仮に列の名前は「次」にします。）
4列目に（例はD3に入れる式）
　=C2
という列を作ります。これは前の行と等しい場合に1になります。（仮に列の名前は「前」にします。）
つまり
　　　　　次　　　　　　　　　前
2行目　=if(A3=A2,1,0)　　0
3行目　=if(A4=A3,1,0)　　=C2
4行目　=if(A5=A4,1,0)　　=C3
　：
　：
というような感じにします。

Word側の設定です。

宛先
　<Mergefield 宛先>
商品名
　<商品名>
　<Next Record If <Mergefield 次>=1><If <Mergefield 前>=1 Then <Mergefield 商品名>>
　　<Next Record If <Mergefield 次>=1><If <Mergefield 前>=1 Then <Mergefield 商品名>>
　　<Next Record If <Mergefield 次>=1><If <Mergefield 前>=1 Then <Mergefield 商品名>>
　　<Next Record If <Mergefield 次>=1><If <Mergefield 前>=1 Then <Mergefield 商品名>>
　　<Next Record If <Mergefield 次>=1><If <Mergefield 前>=1 Then <Mergefield 商品名>>

この方法の欠点は，商品が一つだけなら良いのですが，abcの商品があると，abcc・・・となってしまうことです。後で不要な部分（c・・・）を手動で消さないといけません。良い案があればいいのですが。