убрать запрос на обновление полей

[ruavia3]

При открытии файла.doc макросом, который содержит ссылки на книгу.xls вылетает запрос на обновление документа.
This document contains links that may refer to other files. Do you want to update (...) ?

Как отменить программно этот запрос и обновлять документ автоматически?

[EducatedFool]

Смотря как Вы открываете этот файл...
Где код?

Пример отключения обновления связей для открываемой книги Excel:
http://www.programmersforum.ru/showp...08&postcount=2

[ruavia3]

Sub OpenWord(ByVal file1 As String)
    
On Error Resume Next
    Path = Replace(ThisWorkbook.FullName, ThisWorkbook.Name, file1)
    If Dir(Path) = "" Then MsgBox "Файл " & file1 & "  не найден", vbExclamation, "Файл не найден": Exit Sub

    Path = Chr(34) & "Путь к файлу\file1.doc" & Chr(34)
    CreateObject("WScript.Shell").Run Path
    
    Application.DisplayAlerts = False
    
End Sub

и как раз Application.DisplayAlerts = False не отменяет запроса на обновление полей file1.doc
Запрос на обновление идет именно doc* файла

[EducatedFool]

Попробуйте так:

Sub test()
    file1 = "Документ Microsoft Word.doc"
    Path = Replace(ThisWorkbook.FullName, ThisWorkbook.Name, file1)
    If Dir(Path) = "" Then MsgBox "Файл " & file1 & "  не найден", vbExclamation, "Файл не найден": Exit Sub

    With CreateObject("Word.Application")
        .Options.UpdateLinksAtOpen = False
        .Visible = True
        .Documents.Open (Path)
    End With
End Sub

[ruavia3]

Чтобы обновлял автоматически нужно чтобы .Options.UpdateLinksAtOpen = True