みんなの「教えて(疑問・質問)」にみんなで「答える」Q&Aコミュニティ

こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

AccessVBAからWordのマクロを実行するには

[環境]Access2000,Word2000

AccessVBAでWordのオブジェクトをつくりファイルを開くところまでは
たどり着いたのですが、開いたWordファイルにあるマクロを実行させる
ことが出来ずに困っています。
WordオブジェクトのApplicationとDocumentsオブジェクトの関係も把握
しきれていないため、おかしなソースになっているかも知れません。
よろしくお願いします。

sub DoMacro()
Dim oWrd as Word.Application
Dim oDoc as Word.Document

Set oWrd = New Word.Application
With oWrd
Set oDoc = oWrd.Documents.Open("c:\test.doc")
.Visible = True
.Application.Run ("Macro1")
oDoc.SaveAs "c:\newTest.doc"
.Quit
End With

End Sub

投稿日時 - 2006-03-29 09:52:51

QNo.2058425

困ってます

質問者が選んだベストアンサー

Microsoft Word 9.0 Object Library に参照設定して
コードを以下のように修正すれば良いと思います。

Sub DoMacro()
Dim oWrd As New Word.Application
Dim oDoc As Word.Document
With oWrd
Set oDoc = .Documents.Open("c:\test.doc")
.Visible = True
.Application.Run ("Macro1")
oDoc.SaveAs "c:\newTest.doc"
.Quit
End With
End Sub

投稿日時 - 2006-03-29 23:16:34

お礼

ご指摘の部分を参考に修正いたします。

ご回答ありがとうございました。

投稿日時 - 2006-04-03 13:50:02

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(1)

あなたにオススメの質問