Ошибка выполнения VBA 5941 Запрашиваемый элемент коллекции не существует

Question

У меня есть слово do c, которое получает информацию от Excel do c, но при открытии слова do c я получаю вышеуказанную ошибку. У меня есть много документов Word, с которыми это прекрасно работает, но с некоторыми я получаю ошибку времени выполнения выше. Ниже приведен код VBA, который у меня появляется при отладке, он выделяет:

Windows (ActiveDocument.Name). Активировать

' add registry keys if necessary
    Dim wShell As Object

    Set wShell = CreateObject("WScript.Shell")
    On Error Resume Next
    gsKeyValue1 = wShell.RegRead(Key1)   ' initial value of key, save for restoring user's key
    gsKeyValue2 = wShell.RegRead(Key2)   ' initial value of key, save for restoring user's key
    On Error GoTo 0
    If gsKeyValue1 = "" Or gsKeyValue1 = "0" Then wShell.RegWrite Key1, 1, "REG_DWORD"
    If gsKeyValue2 = "" Or gsKeyValue2 = "0" Then wShell.RegWrite Key2, 1, "REG_DWORD"

    ' close Document1
    On Error Resume Next
    Documents("Document1").Close
    On Error GoTo 0

    Initialize

    Windows(ActiveDocument.Name).Activate
    Application.WindowState = wdWindowStateNormal
    Application.Left = 10
    Application.Top = 20
    Application.Width = 920
    Application.Height = 680

    If MsgBox("Would you like to update the links to the Excel spreadsheet? (This is only necessary if the data has recently been updated.", vbYesNo) = vbYes Then
        Macro1_UpdateLinks
    End If


End Sub

Как я могу исправить эту ошибку ,