Добрый день. Есть макрос для копирования данных из таблицы ворда, а затем обработки этих данных в Excel. Все работает, но затем мы отправляем эти данные на печать путем вставки данных в закладки файла Word. У меня работают макросы везде: и на виртуальной машине с 2010 офисом, и на моем компьютере с 365 последней версией. Но у коллеги не работает вообще. При чем именно отправка на печать. Пишет "вызванный объект был отключен от клиентов". Зайди в Visual Basic тоже нельзя, excel сразу вылетает. Скорее всего связано именно с этим макросом, так как остальные у коллеги работают. В чем может быть дело?
Код
Sub shablon()
Dim a(1 To 5) As Integer
a(1) = 4
a(2) = 3
a(3) = 2
a(4) = 8
a(5) = 9
x = Worksheets("Лист1").Cells(3, 2).End(xlDown).Row
For i = 5 To x
Set WA = CreateObject("Word.Application")
WA.Visible = True
DocFullName = Worksheets("Лист1").Cells(2, 2).Value
Set wd = WA.documents.Open(DocFullName)
For j = 1 To 5
marker = "инд" & j 'наименование закладки
wd.Bookmarks.Item(marker).Range.Text = Worksheets("Лист1").Cells(i, a(j)).Value
Next j
wd.PrintOut Background:=False
wd.Close False
WA.Quit
Set wd = Nothing
Set WA = Nothing
Next i
End S