vb打开当前文件夹中的word文件如何写

Question

文件夹在任意位置，假设为test文件夹，下面有vb程序，test.doc（只有一个word文件，）
vb如何打开test.doc。
如果是自己选择文件如何办。
Private Sub Command1_Click()
Dim wdApp As Word.ApplicationDim aDoc As Document
Dim MyShape As ShapeSet wdApp = New Word.ApplicationSet aDoc = wdApp.Documents.Open(FileName:="f:\test\test.doc")????????这里如何改

Answer 1

Dim objWord  As Object
        Dim strPath  As String
         strPath = App.Path & "\Help.doc"
          If objWord Is Nothing Then
              Set objWord = CreateObject("Word.Application")
          Else
              Set objWord = GetObject(, "Word.Application")
          End If
          objWord.Visible = True
            DoEvents
          objWord.Documents.Open strPath

Answer 2

就是APP.PATH，MSDN里面有怎么使用，百度一下也行，不学基础直接改代码这种做法不可取

Answer 3

Private Sub Command1_Click()
Dim wdApp As Word.ApplicationDim aDoc As Document
Dim MyShape As ShapeSet wdApp = New Word.Application
Set aDoc = wdApp.Documents.Open("f:\test\test.doc")这样改'如果是自己选择文件，那就用一个CommonDialog吧,就用下面的语句
'工程->部件，选Microsoft Common Dialog Control 6.0
'在窗体上添加一个commondialog
commondialog1.filter="*.doc"
commondialog1.showopen
Set aDoc = wdApp.Documents.Open(commondialog1.filename)
End Sub