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

Question 54.1   Previous Next
当ページの「Gallary」の「牽引メニュー」の「サンプルマクロ」を参考に、ネットワーク端末内の牽引メニューを作成しています。
しかし、WORD文書を開くマクロが分かりせん。 API関数で開くのだと思いますが、何分初心者なもので良く理解できません。「サンプルマクロ」の場合では、どうやったら、他のアプリケーションを開くことが出来ますでしょうか?
Excel VBA Boardのページで親切な方に教えて戴いていることを参考にしていますが、私のやり方のせいか一向にWORDが開けません。 (”他のアプリケーションとのリンク”です。) Excel2000を使用しています。よろしくお願いします。
Answer   Copyright (C) 2002.7.4 永井善王
当ホームページをいろいろとご活用いただき、ありがとうございます。
「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は起動できるが文書を開けないが?

 

Excel VBA Macro