Private Sub ЗаполнитьДокумент_Click()
'Макрос запускается по нажатию кнопки 'ЗаполнитьДокумент'
'на форме 'Договор' связанной с данными из таблицы 'Договоры'
    Dim oBOF As BoundObjectFrame
    Dim RSt As DAO.Recordset, DB As DAO.Database
    Dim StrSql As String
    Dim oWord As New Word.Application
    Dim oDoc As Word.Document
    
''Документ' хранится в поле OLE в таблице 'Документы'
'связанной с таблицей 'Договоры'
'полями 'КодДоговора' и 'Код' соответственно
    StrSql = "SELECT Документ" & _
             "  FROM Документы " & _
             " WHERE Left(Название,7) = ""Договор"" And КодДоговора = " & Me.Код
    
    Set DB = CurrentDb()
    Set RSt = DB.OpenRecordset(StrSql)
    RSt.MoveFirst
    
'На форме 'Договор' лежит скрытая свободная Присоединенная рамка объекта 'Документ'
'в которую помещается нужный 'Документ'
    Set oBOF = Me.Controls("Документ")
    oBOF = DLookup("Документ", "Документы", "Left(Название,7) = ""Договор"" And КодДоговора = " & Me.Код)
    oBOF.Action = acOLEActivate
    oBOF.Verb = acOLEVerbOpen
    
    Set oWord = GetObject(, "Word.Application")
    oWord.Visible = True
'    oWord.Visible = False
'Попытка скрыть окно Word приводит к морганию,
'т.е. окно открывается и потом сразу закрывается
'Можно ли сделать так чтоб оно вообще не появлялось?

    Set oDoc = oWord.ActiveDocument
    oDoc.Activate
    
''Документ' заполняется данными из формы 'Договор'
'в самом документе заранее проставлены закладки
    oDoc.Bookmarks.Item("ДоговорНомер").Range.Text = Me.Договор№
    oDoc.Bookmarks.Item("ДоговорДата").Range.Text = Me.Дата
    
'А вот здесь попытка сохранить измененный Документ
'но 'Документ' почему-то не сохраняется
    RSt.Edit
    RSt.Fields("Шаблон") = oBOF
    RSt.Update
    RSt.Close
    
'Вторая попытка сохранить измененный Документ
'но 'Документ' снова не сохраняется
    oDoc.Save

'Третья попытка сохранить измененный Документ
'и снова 'Документ' не сохраняется
    oDoc.Close SaveChanges:=wdSaveChanges

    oWord.Quit
    Set oWord = Nothing
End Sub

    RSt.Fields("Документ") = oBOF.Object

    RSt.Fields("Документ") = oDoc

Private Sub ЗаполнитьДокумент_Click()
'Макрос запускается по нажатию кнопки 'ЗаполнитьДокумент'
'на форме 'Договор' связанной с данными из таблицы 'Договоры'
    Dim oBOF As BoundObjectFrame
    Dim oDoc As Word.Document
    Dim RSt As DAO.Recordset, DB As DAO.Database
    Dim StrSql As String

''Документ' хранится в поле OLE в таблице 'Документы'
'связанной с таблицей 'Договоры'
'полями 'КодДоговора' и 'Код' соответственно
    StrSql = "SELECT Документ" & _
             "  FROM Документы " & _
             " WHERE Left(Название,7) = ""Договор"" And КодДоговора = " & Me.Код
    
    Set DB = CurrentDb()
    Set RSt = DB.OpenRecordset(StrSql)
    RSt.MoveFirst
    
'На форме 'Договор' лежит свободная Присоединенная рамка объекта 'Документ'
'в которую помещается нужный 'Документ'
    Set oBOF = Me.Controls("Документ")
'    oBOF = DLookup("Документ", "Документы", "Left(Название,7) = ""Договор"" And КодДоговора = " & Me.Код)
    oBOF = RSt.Fields("Документ")
    
    Set oDoc = oBOF.Object
    
''Документ' заполняется данными из формы 'Договор'
'в самом документе заранее проставлены закладки
    oDoc.Bookmarks.Item("ДоговорНомер").Range.Text = Me.Договор№
    oDoc.Bookmarks.Item("ДоговорДата").Range.Text = Me.Дата
    
'А вот здесь попытка сохранить измененный Документ
'но 'Документ' не сохраняется, хотя и ошибки не выдает
    RSt.Edit
'-----------------------------------'
    RSt.Fields("Документ") = oBOF
'-----------------------------------'
    RSt.Update
    RSt.Close
    
    oDoc.Close

End Sub

 oDoc.Close
RSt.Edit

'-----------------------------------'
    RSt.Fields("Документ") = oBOF
'-----------------------------------'
    RSt.Update
    RSt.Close
    
   

    RSt.Fields("Документ").AppendChunk oBOF

Есть договор. (Таблица 'Договоры')
К этому договору прикреплены документы. (Таблица 'Документы')
Документы хранятся в поле OLE.
Сами документы создаются путём копирования шаблонов из Таблицы 'Шаблоны'.
И вот эти документы нужно заполнить некими данными из других таблиц.

Private Sub ЗаполнитьДокумент_Click()
    Dim oBOF As BoundObjectFrame
    Dim oDoc As Word.Document
    Dim RSt As DAO.Recordset, DB As DAO.Database
    Dim StrSql As String
    
    StrSql = "SELECT Документ" & _
             "  FROM Документы " & _
             " WHERE Left(Название,7) = ""Договор"" And КодДоговора = " & Me.Код
    
    Set DB = CurrentDb()
    Set RSt = DB.OpenRecordset(StrSql)
    RSt.MoveFirst
    
    Set oBOF = Me.Controls("Документ")
    oBOF = RSt.Fields("Документ")
    
    Set oDoc = oBOF.Object
    oDoc.Bookmarks.Item("ДоговорНомер").Range.Text = Me.Договор№
    oDoc.Bookmarks.Item("ДоговорДата").Range.Text = Me.Дата
    
'ПЕНСИОНЕРКА в чём-то была права
'oDoc надо закрыть раньше, иначе происходит ошибка при обновлении oBOF
    oDoc.Close
    
'Для того чтобы сохранить новый документ, надо обновить oBOF
    oBOF.Action = acOLEUpdate
'Но этого оказалось мало, надо ещё обновить и форму тоже
    Me.Refresh
    
'И вот теперь можно сохранять Документ
    RSt.Edit
    RSt.Fields("Документ") = oBOF
    RSt.Update
    RSt.Close
End Sub