Всем здравствуйте!
У меня с помощью этого кода не получается обновить связи в открывшемся документе из Excel в Word файле. Помогите пожалуйста! Заранее огромное спасибо)
У меня с помощью этого кода не получается обновить связи в открывшемся документе из 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 |