Переменную Excel использовать в проекте Word

[agregator]

Всем здравствуйте. Открываю документ Word из Excel и надо использовать в проекте VBA Word значение переменной присвоенное в проекте VBA Excel. Подскажите пожалуйста как это сделать.

[kuklp]

Кросс:
http://www.planetaexcel.ru/forum/ind...oekte-vba-word

[IgorGO]

а не понятно, где тут сложность вообще?

опишите подробнее принятую Вами схему взаимодействия между приложениями, что куда Вы пытаетесь передать?

[agregator]

В Excel

Sub Слияние()
NZ = Sheets("Лист1").Range("A" & ActiveCell.Row) 'Ячейка Номер
CreateObject("WScript.Shell").Run """C:\Users\Vladimir\Desktop\Слияние.docm""" 
End Sub

В Word

Private Sub Document_Open()
ActiveDocument.MailMerge.DataSource.ActiveRecord = NZ
End Sub

[IgorGO]

Sub Слияние()
  NZ = Sheets("Лист1").Range("A" & ActiveCell.Row) 'Ячейка Номер
  set w = CreateObject("WScript.Shell").Run """C:\Users\Vladimir\Desktop\Слияние.docm""" 
  w.MailMerge.DataSource.ActiveRecord = NZ
End Sub

как-то так

[agregator]

На

set w = CreateObject("WScript.Shell").Run """C:\Users\Vladimir\Desktop\Слияние.docm"""

VBA пишет "Compile error:Expected: end of statement" и выделяет красным.

[agregator]

IgorGO, большое спасибо здесь Апострофф написал так

Private Sub Document_Open()
With GetObject(, "excel.application")
  ActiveDocument.MailMerge.DataSource.ActiveRecord = .activeworkbook.Sheets("Лист1").Range("A" & .ActiveCell.Row)
End With
End Sub