Страницы: 1
RSS
Как обновить связи в Word из Excel?
 
Всем здравствуйте!
У меня с помощью этого кода не получается обновить связи в открывшемся документе из Excel в Word файле. Помогите пожалуйста! Заранее огромное спасибо)
Код
Application.AskToUpdateLinks = True
    Dim objWrdApp As Object
    Dim objWrdDoc As Object
    On Error Resume Next
    Set objWrdApp = GetObject(, "Word.Application")
        If Err Then
            Err.Clear
            Set objWrdApp = CreateObject("Word.Application")
            If Err Then MsgBox "Íåò Âîðäà íà ìàøèíå!": Exit Sub
        End If
    objWrdApp.Visible = True
    Set objWrdDoc = objWrdApp.Documents.Open("C:\Users\KLC Team\Desktop\6_TESTs\Shablon_6_tests-Connect.docx")
 ActiveDocument.Selection.Fields.Update
 
Приложите файлы Word и Excel, о которых идет речь.
Владимир
Страницы: 1
Наверх