EXCELからWORDの文章を取得

set WD=GetObject(,"Word.Appllication")
para1=Wd.activedocument.Paragraphs(1).Range.Sentences(1).text
で、無事、activeなWordの文章は取れるのですが、

実際にあり、開いているWord文章（D:\aabbcc.docx)を処理しようと
set WD=GetObject("D:\aabbcc.docx")
para1=Wd.activedocument.Paragraphs(1).Range.Sentences(1).text
とするとエラーになります。
どうやったら、取得できるでしょうか？

No.1 ベストアンサー 回答者： NotFound404 回答日時： 2014/08/15 11:40

sub testA()

dim WD,para1
set WD=GetObject("D:\aabbcc.docx")
para1=WD.Paragraphs(1).Range.Sentences(1).text
・・・以下省略
とするか
sub testB()
dim WD,para1,AppWD
set WD=GetObject("D:\aabbcc.docx")
set appWD=WD.parent
para1=appWD.activedocument.Paragraphs(1).Range.Sentences(1).text
・・・以下省略
のように親オブジェクトをセットしてやるか、
では。

この回答へのお礼

ありがとうございました。無事、できました。

お礼日時：2014/08/15 12:46