WordVBAで規定のところに文字列を挿入したい

　VBA超初心者の質問です。
　ExcelVBAでは値をセルに代入することは出来ますが、WordVBAで規定の場所に文字列を代入するといったことはどうすれば良いのでしょうか？
　できれば、テキストボックスの中身と連動できたらと思うのですが、できますか？
　ちなみに、私はVBAはほとんど知識がありません。
　ただ単にVBAの勉強の手始めにこれだけ教えてください。
　Web検索しても見つからないので、よろしくお願いします。

No.2 ベストアンサー 回答者： imogasi 回答日時： 2002/12/23 12:47

私もワードのＶＢＡは初心者です。

（テキストボックスの作り方・値のセットのし方）
値は手動でなく、プログラムでセットする方法です。
Sub test05()
ActiveDocument.Shapes.AddTextbox _(msoTextOrientationHorizontal,100 ,100,100,100).Select
Selection.TypeText Text:="東京都文京区"
End Sub
100,・・のところは、Left,Top,Width,Heightの指定です。ワードに貼り付けるコントロールはShapesでまとめられていて、エクセルなどと違うようです。
（所定のところへテキストボックスの値をセットのし方）
「所定のところ」と言うのが、ワードの場合は曲者なような気がする。取りあえず何行目の何文字目と言う指定を知りましたので、記します。
Private Sub TextBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
MsgBox TextBox1.Text
Selection.MoveDown unit:=wdLine, Count:=3
Selection.MoveRight unit:=wdCharacter, Count:=8
Selection.TypeText Text:=TextBox1.Text
End Sub
テキストボックスのイベントを、どれで捕らえるかが難しいが、比較的人為的にしないと起こらないダブルクリックにしました。
テキストボックス内に文字を入れ、テキストボックス内で
ダブルクリックすると３行下の該当文字から８文字目に
入力文字が挿入されます。
ワードのＶＢＡは（１）解説書が少ない。（２）エクセルのように、Ｃｅｌｌ（Ｒａｎｇｅ）に当たる基本的な単位に当たるものが、見つからない。（３）エクセル・アクセスＶＢＡと統一されていない（４）ビジネスなどで利用応用出来る場面が良く見えない。など学習は苦難の道が待っている気がします。ＯＫＷＥＢの質問も回答も少ないようです。お互いに頑張りましょう。

この回答への補足

他の投稿が来そうにないので締め切ります。
ありがとうございました。

補足日時：2002/12/24 23:46

この回答へのお礼

　回答ありがとうございました。

　自分は、WordVBAを勉強して、まずは簡単なFAX送信票をフォームから入力できればと思っています。
　現在はそれをFileMakerでやっていますが、なんかFileMakerの方が簡単そうです・・・。

　Vectorでもフリーソフトが少ないようなので、元々このような用途には向かないのかもしれません・・・？

お礼日時：2002/12/23 15:37

No.1 回答者： taknt 回答日時： 2002/12/23 06:18

ちょっとむずかしいのですが、以下のＵＲＬを参考にしてやってみてください。

http://www.microsoft.com/japan/developer/library …

参考URL：http://www.microsoft.com/japan/developer/library …

この回答への補足

他の投稿が来そうにないので締め切ります。
ありがとうございました。

補足日時：2002/12/24 23:48

この回答へのお礼

　回答ありがとうございました。
　私には難しく全部はワカリマセンでしたが、挿入場所にブックマークを付けて、そこを選択するということですね？

　後でVectorで見つけた「履歴書 For Word」では、挿入箇所にテキストボックスを入れて、VBAで参照しているようですが、Shapes(1)と数字が入るのが嫌な感じがします。他に方法はないものでしょうか。

*************************************************
ActiveDocument.Shapes(1).Select
With Selection
.Font.Size = 10
.TypeText Text:="氏名" & Space(8) & TextBox1.Text
End With
*************************************************

お礼日時：2002/12/23 14:40