Word 2003でマクロを作成し、任意のhtmlファイルを開く方法についてアドバイスをいただきたいです。
Word VBA: 任意の html ファイルをファイルを開くダイアログから開くには？
こんにちは、
Word VBA のことで質問があります。
今任意の html ファイルを[ファイルを開く]ダイアログから開くというマクロを作りたいので下記のプログラムを書きましたがこれではあらかじめファイル名やパスが指定されたものになってしまうので目的を満たせないと気づきました。。
Documents.Open メソッドではファイル名の指定が必須だそうですし、、そうするとほかに考えられる手段はどんなものか、
変数を使えばできそうですが、具体的にはどんなプログラムを組めばよいかなど悩んでいます。
ちなみにマクロを作成する環境は word 2003 です。
***以下、現状のプログラム内容です。***
Private Sub OpenButton_Click()
'任意の html ファイルを開き、[File Path] テキストフィールドへファイルのフルパスを表示します
Dim dlgOpen As FileDialog
Set dlgOpen = Application.FileDialog( _
FileDialogType:=msoFileDialogOpen)
With dlgOpen
.AllowMultiSelect = False
If .Show = -1 Then
MainWindow.TextBox1 = .SelectedItems(1)
Documents.Open FileName:="C:\test.html", Format:=wdOpenFormatEncodedText
End If
End With
End Sub
************************************************************
目的を満たすためにはどのようなプログラムをかけばよろしいのか
どなたかご指導いただけませんでしょうか
よろしくお願いいたします。
TYWalkerさん、
早速のご回答ありがとうございます。
教えていただいた内容で問題が解決しました！
こんなやり方があるのですね、勉強になりました
***問題解決時のプログラム内容***
Private Sub OpenButton_Click()
Dim dlgOpen As FileDialog
Set dlgOpen = Application.FileDialog( _
FileDialogType:=msoFileDialogOpen)
With dlgOpen
.AllowMultiSelect = False
If .Show = -1 Then
MainWindow.TextBox1 = .SelectedItems(1)
Documents.Open .SelectedItems(1), Format:=wdOpenFormatEncodedText
End If
End With
End Sub
***************************************************
お礼
TYWalkerさん、 早速のご回答ありがとうございます。 教えていただいた内容で問題が解決しました！ こんなやり方があるのですね、勉強になりました ***問題解決時のプログラム内容*** Private Sub OpenButton_Click() Dim dlgOpen As FileDialog Set dlgOpen = Application.FileDialog( _ FileDialogType:=msoFileDialogOpen) With dlgOpen .AllowMultiSelect = False If .Show = -1 Then MainWindow.TextBox1 = .SelectedItems(1) Documents.Open .SelectedItems(1), Format:=wdOpenFormatEncodedText End If End With End Sub ***************************************************