Access VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

7521 / 9994

←次へ　｜　前へ→


	【5661】Re:ACCESSのデータのWord差込

小僧 - 05/7/22(金) 9:47 -


	引用なし

	パスワード

▼たけのさん：
おはようございます。
当方、WordVBA の知識がないのでこのへんまでしかできませんが…。

Sub ワードを起動して()
Dim wdApp As New Word.Application
Dim wdDoc As Word.Document
Dim wdName As String
　　wdName = "C:\Test.DOC"
　　
　　wdApp.Visible = True
　　Set wdDoc = wdApp.Documents.Open(wdName)
　　　　wdDoc.Range(1, 1).Text = "差込"
　
　　Set wdDoc = Nothing
　　Set wdApp = Nothing
End Sub

「wdDoc.Range(1, 1).Text = "差込"」の辺りの操作はWordVBAを使う事になります。
たけのさんが希望する位置に指定の文字を挿入されたい場合は
Wordの「マクロを記録」の機能でVBAのコードを分析されてみてはいかがでしょうか。

335 hits

▼

【5660】ACCESSのデータのWord差込 たけの 05/7/21(木) 17:54