使用命令按钮在文件列表框中打开Word文档

Question

所以我有一个filelistbox以及dir和drivelistboxes。当我按下/单击我创建的“打开”命令按钮时，我正在尝试打开文件列表框中显示的单词（.docx）文件，但它弹出一个：

  

错误5151单词无法阅读此文档。它可能是腐败的。   请尝试下列办法中的一个或多个“打开并修复文件”。 “打开   文件恢复转换器的文件。 （C：\ Documents and Settings \ JHON   Clarence \ Desktop \ * .docx）“

以下是命令按钮的代码：

Private Sub cmdopen_Click()
    Dim nAns As Long
    Dim objFile As String
    Dim objpath As String
    Dim objname As String
    objpath = Dir1.Path & "\"
    objname = "*.docx"
    objFile = objpath & objname

    nAns = MsgBox("Please confirm to open file ' " & objFile & "'?'", vbQuestion & vbYesNo)
    If nAns = vbYes Then
        Set objWord = CreateObject("Word.Application")
        objWord.Visible = True
        Set objDoc = objWord.Documents.Open(objFile)
    End If
End Sub

调试突出显示Set objDoc = objWord.Documents.Open(objFile) 我有一个预感，问题是关于objname = "*.docx"，虽然我不知道如何在不输入任何文件名的情况下打开任何word文件（.docx）。