差込後 該当する文字を 丸で囲みたいです

質問

お世話になります。
WINDOWS-XP　WORD2003です。
エクセル2003のシートに　号　生年月日があります。
（例　　昭　220628）
ワードの文書に　生年月日を差込ます。
印刷用紙には　既に　明　大　昭　平　と印刷してあります。
該当する　昭　を　○丸印で囲みたいです。

VBAでできるのでしょうか。

よろしくお願いします。

回答No.1

enunokokoro · ベストアンサー

「昭」の字を印刷するのではなく、データ側に「昭」があれば
印刷用紙の 昭 部分に○を配置したいということなのですね？

マクロを使う必要なないと思いますが、レイアウトが少しだけ
面倒かもしれません。

基本は差し込み印刷での[ IF ]フィールドを使って、データ
が一致したら、○を特定の位置になるような配置をしたものを
用意して、印刷します。
http://support.microsoft.com/kb/214827/ja

例

{ IF { MERGEFIELD 年号 }= "明" "○" ↓
{ IF { MERGEFIELD 年号 }= "大" "　　○" ↓
{ IF { MERGEFIELD 年号 }= "昭" "　　　　○" ↓
{ IF { MERGEFIELD 年号 }= "平" "　　　　　　○" }}}}

のようなものを年号の差し込みに設定します。

IFの中にある折り返し位置の「↓」記号は段落内改行の記号
を入れることで、フィールドが長くなるものをわかりやすく
区切っているだけで差し込みしたときには改行はしません。

丸印○の前の空白部分の間隔を印刷用紙と合わせておけば、
該当する位置に○を配置できると思います。

お礼

ありがとうございます。
質問してから、　Wordフィールドの挿入に気付きました。　If Then Else で、できそうです。

教えて頂いた方法は、IFがたくさん使えて応用範囲が広いようで、
心強いです＾＾