Добрый день (утро, вечер...)
Есть такая задача: с листа Excel скопировать несколько таблиц в Word (каждую в отдельный документ) и для каждого документа запустить макрос Word. Копирование проблем не вызывает, а вот при запуске макросов в Word запускаются все макросы только для самого первого документа. Что тут не так, как можно решить данную проблему?
Пишу следующее:
Set wa1 = CreateObject("Word.Application")
wa1.Visible = True: Set wd1 = wa1.Documents.Add
Range("A:G").Copy
wa1.Selection.PasteExcelTable False, False, False
Application.CutCopyMode = False
Dim wbApp1 As Object
Set wbApp1 = GetObject(, "Word.Application")
wbApp1.Run "Макрос1"
Set wa2 = CreateObject("Word.Application")
wa2.Visible = True: Set wd2 = wa2.Documents.Add
Range("I:O").Copy
wa2.Selection.PasteExcelTable False, False, False
Application.CutCopyMode = False
Dim wbApp2 As Object
Set wbApp2 = GetObject(, "Word.Application")
wbApp2.Run "Макрос2"
Заранее спасибо
Есть такая задача: с листа Excel скопировать несколько таблиц в Word (каждую в отдельный документ) и для каждого документа запустить макрос Word. Копирование проблем не вызывает, а вот при запуске макросов в Word запускаются все макросы только для самого первого документа. Что тут не так, как можно решить данную проблему?
Пишу следующее:
Set wa1 = CreateObject("Word.Application")
wa1.Visible = True: Set wd1 = wa1.Documents.Add
Range("A:G").Copy
wa1.Selection.PasteExcelTable False, False, False
Application.CutCopyMode = False
Dim wbApp1 As Object
Set wbApp1 = GetObject(, "Word.Application")
wbApp1.Run "Макрос1"
Set wa2 = CreateObject("Word.Application")
wa2.Visible = True: Set wd2 = wa2.Documents.Add
Range("I:O").Copy
wa2.Selection.PasteExcelTable False, False, False
Application.CutCopyMode = False
Dim wbApp2 As Object
Set wbApp2 = GetObject(, "Word.Application")
wbApp2.Run "Макрос2"
Заранее спасибо