すぐに役立つエクセルVBAマクロ集 - Excel VBA Macro Collection

　　すぐに役立つエクセルVBAマクロ集 - すぐマク

Excel VBA Macro
FAQ

500連発・組み方講座フォロー

Big Color Pallet

[広告]

Excel VBA Macro

Excel DownLoad

Excel VBA Macro　・　その他　・　FAQ

Wordを起動して文書を開くには？

Ｑuestion 54.1　その他

当ページの「Gallary」の「牽引メニュー」の「サンプルマクロ」を参考に、ネットワーク端末内の牽引メニューを作成しています。
しかし、WORD文書を開くマクロが分かりせん。 API関数で開くのだと思いますが、何分初心者なもので良く理解できません。
「サンプルマクロ」の場合では、どうやったら、他のアプリケーションを開くことが出来ますでしょうか？

Excel VBA Boardのページで親切な方に教えて戴いていることを参考にしていますが、私のやり方のせいか一向にWORDが開けません。（”他のアプリケーションとのリンク”です。） Excel2000を使用しています。よろしくお願いします。

Ａnswer　　

当ホームページをいろいろとご活用いただき、ありがとうございます。
「Excel VBA Boardのページで親切な方に教えて戴いて・・」とありますので、私も早速拝見して勉強させていただきました。そして、あれこれ調べてみましたところ、API関数を使用するなどいろいろな方法があるようです。

しかし、あなたの場合は身近な実務で使われているように感じますので、手軽に実現できる下記のマクロをお勧めします。 school

'-----------------------------------------------------------------------------------------
Sub ExcelからWordを起動して文書を開く()
Dim ワード As Object
Dim ワード文書 As Object
Dim フルパス As String
'
    フルパス = "C:\A\サンプル.doc"              'フルパスを作成
    Set ワード = CreateObject("Word.Application") 'Wordを起動する
    ワード.Visible = True                       'Wordを表示する
    Set ワード文書 = ワード.documents.Open(フルパス) 'Word文書を開く
End Sub
'-----------------------------------------------------------------------------------------

本来ならば、CreateObject関数などについて、くわしく解説したいのですが、私は現在、近く出版予定の本の執筆に追われていますので、またの機会にさせていただきます。
なお、Wordのバージョンを指定して開く場合には、CreateObject関数のアプリケーションの名前の末尾で指定できます。

    Set ワード = CreateObject("Word.Application.10") 'Word2002を起動する

動作確認に使用したExcelは 97、2000、2002ですが、Wordは2002しかインストールしてないので、他のバージョンでは確認できていません。

関連ページ
・ Wordは起動できるが文書を開けないが？