Wordを開く方法を教えて下さい。

Question

フォームに、曲名と言うテキストボックスか有ります。クイックしてWordを開きたいのですが。

下記の式をどこへ入れればよいか教えて下さい。

Sub myWordFileOpen()

'「ファイルを開く」ダイアログボックスで、Wordファイルを開く

'2010/07/17 pPoy

    Dim objWd As Object                 'Word.Application

    Dim objFileDialog As Object         'FileDialog

    Dim stTitle As String               'タイトル

    Dim tmp As Variant                  'ファイルのフルパス

    Dim stFilter1 As String             'ファイルのフィルタ

    Dim stFilter2 As String             'ファイルのフィルタ

    Dim stInitialFileName As String     '初期フォルダパス

    Const msoFileDialogOpen = 1         'ファイルを開く

    stTitle = "ワードファイルオープン"

    stFilter1 = "ワード ファイル"

    stFilter2 = "*.doc"

    stInitialFileName = "C:"           '★

    'Word Set

    Set objWd = CreateObject("Word.Application")

    With objWd

        .Visible = True

        Set objFileDialog = _

            .FileDialog(msoFileDialogOpen)

        With objFileDialog

            'ダイアログボックスのタイトル

            .Title = stTitle

            '初期フォルダパス

            .InitialFileName = stInitialFileName

            '複数ファイル選択可

            .AllowMultiSelect = True

            'ファイルの種類設定

            .Filters.Clear

            .Filters.Add stFilter1, stFilter2

            If .Show = False Then

                'キャンセル時

                objWd.Quit

                GoTo Exit_SUB

            Else

                'Word File Open

                 .Execute

            End If

        End With

    End With

Exit_SUB:

    Set objWd = Nothing

    Set objFileDialog = Nothing

End Sub

Answer 1

こんばんは、ずっちです。

現状の情報だけではまったくわからないので、

ソースを開示してもらえますか？

Answer 2

早速試して見ましたところ、

Private Sub 曲　　　名_Click()

が黄色になって

コンパイルエラーでEnd　ｓｕｂが必要です。

と出ます。

もう一度ご指導ご鞭撻のほどお願いします。

Answer 3

おはようございます、ずっちです。

前回出されたソースと違うし、ダブルコーテーションの使い方がメチャクチャですね^^;

コンパイルエラーで赤くなっている所が、書き方が間違ってると認識された行です。

正確なファイルパスはわかりませんが、

Dドライブ　ＣＤ音楽コレクション　　歌詞カードってフォルダレイアウトだったら、

　stInitialFileName = "D:\ＣＤ音楽コレクション\歌詞カード"

Dドライブ　ＣＤ音楽コレクション歌詞カードってフォルダレイアウトだったら、

　stInitialFileName = "D:\ＣＤ音楽コレクション歌詞カード"

って感じに修正してみてください。

Answer 4

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

Private Sub 曲　　　名_Click()

ここが、黄色になり

 stInitialFileName = D:\ＣＤ音楽コレクション"歌詞カード'★

ここが゛、あかくなり

コンパイルエラー

End　ｓｕｂが必要です

どこが悪くて出るのですか。

Answer 5

こんばんは、ずっちです。

曲名ってテキストボックスのクリック時にイベントプロシージャを設定して、

その下に貼るのが一番手っ取り早いでしょうね。

Private Sub 曲名_Click()

　　Call myWordFileOpen

End Sub

Sub myWordFileOpen()

　'「ファイルを開く」ダイアログボックスで、Wordファイルを開く

　'2010/07/17 pPoy

　　Dim objWd As Object                 'Word.Application

　　Dim objFileDialog As Object         'FileDialog

（以下略）

みたいな。