Access -- Word へデータ

====*====*====*====*====*====*====*====*====*====*====*====*====*====*====*=
[ 三流ＰＧ 番外編 今日の一品 No.017 ] 　 2000/03/28 火曜日  発送予定
=*====*====*====*====*====*====*====*====*====*====*====*====*====*====*====
三流ＰＧ 番外編 今日の一品 は 隠し味として、
軽めのＶＢＡ関係のサブルーチンを載せていきたいと思います。
----------------------------------------------------------------------------
Access -- Word へデータ

またまた、読んでいただいてすみません。

下記の質問メールいただきました。
----------------
 >Ａｃｅｅｓｓ2000　から　Ｗｏｒｄ　テンプレートファイル（ｄｏｔファイ
 >ル）に
 >データを流しこむ方法を取り上げてくれたら嬉しいのですが
 >
 >例：　商品管理データベースから
 >発注書ファイル（Ｗｏｒｄ　テンプレート）に流し込む
 >（社名　担当者　品名　数量　金額フィールドなど）
 >Ｗｏｒｄのブックマーク機能が今一よくわかりません
 >現在はＡｃｃｅｓｓレポートでやっているのですが
 >各社毎、フォントサイズや細かい文章の追加・訂正などで
 >決まったフォーマットが組めない為
 >Ｗｏｒｄファイルに流し込んで訂正してからの方が効率が
 >よいので
 >
 >よろしくお願いします
 >

Dotファイルじゃないですが、
下記、Ｗｏｒｄファイルのテキストボックスにデータを流し込む例です。
流れは、
登記申請書.docとあらかじめ作られた初期ファイルを開き、
テキストボックスにデータをセットして、（手抜きで、名前を変えてませんが）
そのご、初期ファイルを壊されたくないので、
new.docに保存してます。
＊環境に依存した手抜きのコードなので、何かの参考に使えれば幸いです。

私がテストした組み合わせは、Access97 --> Word97 です。
'----------------------------------------
Private Sub B_登記_Click()

    Dim oApp As Object

    If Len(Dir("v:\new.doc")) > 0 Then
        Kill "v:\new.doc"
    End If

    Set oApp = CreateObject("Word.Application")
    oApp.Visible = True

    oApp.Documents.Open FileName:="V:\五味観光\登記申請書.doc"

    oApp.ActiveDocument.Shapes("Text Box 3").SELECT
    oApp.Selection.TypeText Text:=縦書用数値変換(Me![地積])

    oApp.ActiveDocument.Shapes("Text Box 4").SELECT
    oApp.Selection.TypeText Text:=縦書用数値変換(Me![地番])

    oApp.ActiveDocument.Shapes("Text Box 5").SELECT
    oApp.Selection.TypeText Text:=縦書用数値変換(Me![住所1]) & 縦書用数値変換(Me![住所2]) 
& 縦書用数値変換(Me![住所3]) & vbCrLf & Me![請求者氏名]

    oApp.ActiveDocument.SaveAs FileName:="V:\new.doc"

    Set oApp = Nothing

End Sub
'---------------------------------------------

>    oApp.ActiveDocument.Shapes("Text Box 3").SELECT
>    oApp.Selection.TypeText Text:=縦書用数値変換(Me![地積])
上記のコード、なんか、一行で書けるような気がする

可変の場所にテキストボックス使って逃げているけど、
もっと簡単な方法、ありそう。
＊またまた、ＡｃｃｅｓｓとＷｏｒｄの機能だけで、
　できることだったりして？
　さしこみ印刷ってキーワード聞いたことあるなぁ、、、
　なんか、おおげさにしないでもできそうな予感が、、

Wordのオブジェクト・操作系、、探り入れないと、
（自分へ一言、、Excel をワープロ代わりに使うの好きだから、
　　　　　　　　　Word VBAもたまには、、、食わず嫌い？)

やっぱ、三流だなぁ、、と声が聞こえてきたところで、このへんで、、
今日も逃げ出す、、、悪人 Ｋｅｎ３ でした。。。

質問や要望、クレームを送る(三流君に連絡する 連絡方法)

質問や要望など連絡方法でお互い確認が取りやすく、便利なのが掲示板なのですが、私の対応のまずさから不定期で荒れてしまい、掲示板は現在封鎖中です。(反省しなきゃ)

感想や質問・要望・苦情など 三流君へメッセージを送る。 時間的余裕のある要望・質問・苦情の場合は、下記のフォームからメッセージを送ることができます。 あなたのお名前（ニックネーム）:さん 返信は？: 不用(HP更新を待つ) , E-mail→ アドレス:に返事をもらいたい ここに 感想や質問・要望・苦情など 三流君へ送るメッセージを 気軽に書いてください (感想や質問・要望・苦情はHPで記事に載せることがあります。)

急ぎで連絡がほしい、そんな時は:[三流君連絡先]に連絡してください。

番外編 愚痴系で書いてた今日の一品 (短いサブ関数など)