Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
vba вызванный объект был отключен от клиентов
 
Добрый день.
Есть макрос для копирования данных из таблицы ворда, а затем обработки этих данных в 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
Изменено: mega31 - 21 Сен 2018 15:52:01
 
mega31, нужно включить макросы в Word
ексель не может получить доступ к ворд изза етого
Изменено: ivanok_v2 - 21 Сен 2018 15:55:40
 
ivanok_v2, Спасибо, попробуем.  
Страницы: 1
Читают тему (гостей: 1)
Наверх