VBA, чтобы открыть документ Word и обновить ссылки

Question

Я надеюсь найти решение (будь то VBA или нет) по моей проблеме. У меня есть документ Word со связанными в нем таблицами Excel. Все ссылки работают правильно, но я должен вручную открыть документ Word, чтобы он обновлялся с данными Excel. Причина, по которой я использую Word вместо Excel, объясняется большим количеством текста.

Есть ли способ, которым я мог бы программировать какой-то код, который будет проходить через все документы Word в папке, открыть каждый документ, обновить все ссылки, сохранить документ и перейти к следующему?

Вот что я до сих пор

Sub OpenFiles() 
Dim MyFolder As String 
Dim MyFile As String 

MyFolder = "LOCATION" 
MyFile = Dir(MyFolder & "\*.docx") 

Do While MyFile <> "" 
    Documents.Open Filename:=MyFolder & "\" & MyFile 
    MyFile = Dir 
Loop 

End Sub 

UPDATE

Хорошо я был в состоянии сделать открытые файлы командной работы! Теперь я пытаюсь переписать/сохранить файл и закрыть его.

Сообщение об ошибке: Объект Обязательный

Sub OpenFiles() 
Dim MyFolder As String 
Dim MyFile As String 
Dim objWord As Object 

Set objWord = CreateObject("Word.Application") 
objWord.Visible = True 
MyFolder = "LOCATION" 
MyFile = Dir(MyFolder & "\*.docx") 
Do While MyFile <> "" 
objWord.Documents.Open Filename:=MyFolder & "\" & MyFile 

Application.DisplayAlerts = False 
ActiveDocument.SaveAs Filename:=MyFile 
Application.DisplayAlerts = True 

MyFile = Dir 
Loop 
End Sub 

Answer 1

Вы можете попробовать любой из ниже:

Dim objDoc As Object 
Do While Myfile <> "" 
    Set objDoc = objWord.Documents.Open(Filename:=MyFolder & "\" & MyFile) 
    objDoc.Save '~~> Save 
    objDoc.Close '~~> Close 
    Myfile = Dir 
Loop 

Или вы можете просто использовать Закрыть метод как это.

objDoc.Close True '~~> close with SaveChanges argument set to True