Access VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
1709 / 2272 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【5660】ACCESSのデータのWord差込 たけの 05/7/21(木) 17:54 質問[未読]
【5661】Re:ACCESSのデータのWord差込 小僧 05/7/22(金) 9:47 発言[未読]
【5663】Re:ACCESSのデータのWord差込 たけの 05/7/22(金) 11:06 お礼[未読]
【5660】ACCESSのデータのWord差込
質問  たけの  - 05/7/21(木) 17:54 -
引用なし
パスワード
   ＡＣＣＥＳＳのフォームより、コマンドボタンを押下後に
該当データをＷＯＲＤに差込み、自動に起動するように
プログラムを作成したいのですが、うまくいきません。
何か良い方法はないでしょうか？
【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のコードを分析されてみてはいかがでしょうか。
【5663】Re:ACCESSのデータのWord差込
お礼  たけの  - 05/7/22(金) 11:06 -
引用なし
パスワード
   ▼小僧 さん：
おはようございます。
早速、小僧さんに教えていただいた
コードをパクッてテストをしてみました。
昨日、一日中「う〜う〜」うなって考え込んでいたのが
馬鹿らしく思えるくらい簡単にワードが起動でき、
データを差し込むことができることがわかりました。
ありがとうございます！

あとは、Wordの「マクロを記録」というのを使ってみて
試行錯誤したいと思います。
本当にありがとうございました！
大変助かりました！


>▼たけの さん：
>おはようございます。
>当方、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のコードを分析されてみてはいかがでしょうか。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
1709 / 2272 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
1080772
(SS)C-BOARD v3.8 is Free