Из VB открываю Word-шаблон для заполнения договора, при повторном вызове шабона при закрытом прежнем документе данные в поля не заносятся. Договор заполняется только при новом запуске проги. Что делать? Не дайте сойти сума.
Пример:
Set wordApp = Nothing
On Error Resume Next
Set wordApp = GetObject(, "Word.Application")

If Err.Number = 0 Then
MsgBox "Внимание! Уже открыт экземпляр документа MS Word. Во избежании возникновения ошибок закройте все документы MS Word и повторите попытку.", vbExclamation, "MS Word"
wordApp.Visible = True
Exit Sub
End If

Set wordApp = CreateObject("Word.Application")

wordApp.Documents.Add Template:=App.Path & "\ДоговорСемейныеНежилое.dot"

Set wordDoc = wordApp.ActiveDocument

wordApp.Visible = True

adoПомещения.ConnectionString = Module1.СтрокаПодключения
adoПомещения.RecordSource = "SELECT * " & _
"FROM Договоры " & _
"ORDER BY ИдентНомерПомещ;"
adoПомещения.Refresh

wordDoc.Bookmarks("ПолеНомерДоговора").Select
If IsNull(adoКвартирыКлиента.Recordset.Fields("НомерДоговора")) = False Then
Word.Selection = adoКвартирыКлиента.Recordset.Fields("НомерДоговора")
End If

Set wordDoc = Nothing
Set wordApp = Nothing

Присвоение переменным wordDoc и wordApp значения Nothing ничего не дает.