エクセルVBAでワード文書を出力？

こんなことできますか？

「VBAを記述したエクセルのブックと同一フォルダーにおいておいたABC.DOCをプリントし、ABC.DOCを閉じる」
これができるととても助かります。よろしくお願いします。

No.1 ベストアンサー 回答者： imogasi 回答日時： 2006/04/22 12:26

エクセルのVBEの標準モジュールに

Sub test01()
Dim wdobj As Object
Set wdobj = CreateObject("word.application")
wdobj.documents.Open Filename:="C:\Documents and Settings\XXX\My Documents\文書1.doc"
wdobj.Visible = True
wdobj.ActiveDocument.PrintOut ' From:=nPageStart, To:=nPageEnd
wdobj.Quit
Set wdobj = Nothing
End Sub
を貼り付け、文書ファイル名・Pathを変えて、実行してみてください。

この回答へのお礼

ありがとうございました。
上手くいきました。
たすかりました。

お礼日時：2006/04/22 18:28

No.2 回答者： chie65536 回答日時： 2006/04/22 12:33

Sub Word_Print()

　　Dim wd As Object
　　Set wd = CreateObject("Word.application")
　　wd.Visible = True
　　wd.Documents.Open Filename:="ABC.DOC"
　　wd.PrintOut Filename:="ABC.DOC"
　　wd.Quit False
　　Set wd = Nothing
End Sub

この回答へのお礼

ありがとうございました。
下記のようにしたら上手くいきました。

Sub Word_Print()
Dim wd As Object
Set wd = CreateObject("Word.application")
wd.Visible = True
wd.documents.Open Filename:=ThisWorkbook.Path & "\ABC.doc"
wd.ActiveDocument.PrintOut
wd.Quit ' False
Set wd = Nothing
End Sub

お礼日時：2006/04/22 18:31