用dialogs(wdfileopen).display 可以调出word 的打开对话框,并选择文件,但是......

Question

用dialogs(wdfileopen).display 可以调出word 的打开对话框,并选择文件, dialogs(wdfileopen).name 可以得到文件名,但是没有路径,怎样可以得到所选文件的路径和名称呢? 那位高手帮帮忙.(我不想引用commondialog控件.)

Answer 1

Option Explicit
Dim wpp As New Word.ApplicationPrivate Sub Command3_Click()
    wpp.Dialogs(wdDialogFileOpen).Show
    MsgBox ActiveDocument.Name
    MsgBox ActiveDocument.Path
End Sub

Answer 2

to:sxs69() 
我并不想打开文件,因为我所选的文件不一定是 DOC文件.
有否方法不打开文件的情况下得到文件的路径? (我不想引用commondialog控件.)  Thanks.