从列表框上的 DblClck 事件打开 Word Doc答案

【问题标题】：Opening Word Doc From DblClck event on Listbox从列表框上的 DblClck 事件打开 Word Doc
【发布时间】：2022-10-13 01:32:39
【问题描述】：

我在让我的代码正常工作时遇到了一些奇怪的问题。我试图在我的列表框SOPList 上使用双击事件来打开选定的word 文档。第一次双击列表中的文档时它运行良好，但下次双击该文档时它会给出错误：“远程服务器计算机不存在或不可用”。错误在线Documents.Open FileToOpen 打开文档。

虽然该位置是网络驱动器，但它仍然可见且已连接。我不确定我错过了什么，我希望第二双眼睛可以帮助我弄清楚。

代码：

Private Sub SOPList_DblClick(Cancel As Integer)
Dim FilePath As String
Dim FileName As String
Dim FileToOpen As String
Dim objWord As Word.Application

    Set objWord = CreateObject("Word.Application")
      
        If SOPList.ListIndex > -1 Then
          FilePath = "\\page\data\NFInventory\groups\CID\SOPs\"
          FileName = Me.SOPList.Value
          FileToOpen = FilePath & FileName
    
          Documents.Open FileToOpen '<---error line
        End If
        
        objWord.Visible = True
        Set objWord = Nothing
    
    End Sub

谢谢！！

【问题讨论】：

标签： vba ms-access ms-word ms-access-2016

【解决方案1】：

尝试改变

Documents.Open FileToOpen

至

objWord.Documents.Open FileToOpen

【讨论】：

谢谢！不敢相信我忘记了。 :)
很多时候，你需要的只是一双新鲜的眼睛:)