| |
▼小僧 さん：
おはようございます。
早速、小僧さんに教えていただいた
コードをパクッてテストをしてみました。
昨日、一日中「う〜う〜」うなって考え込んでいたのが
馬鹿らしく思えるくらい簡単にワードが起動でき、
データを差し込むことができることがわかりました。
ありがとうございます！
あとは、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のコードを分析されてみてはいかがでしょうか。
|
|
たけの
- 05/7/22(金) 11:06 -
