從列表框上的 DblClick 事件打開 Word Doc

Question

我試圖在我的列表框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

Answer 1

嘗試改變

Documents.Open FileToOpen

到

objWord.Documents.Open FileToOpen