Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 18.03.2016, 17:21   #1
agregator
Форумчанин
 
Аватар для agregator
 
Регистрация: 09.05.2009
Сообщений: 369
По умолчанию Переменную Excel использовать в проекте Word

Всем здравствуйте. Открываю документ Word из Excel и надо использовать в проекте VBA Word значение переменной присвоенное в проекте VBA Excel. Подскажите пожалуйста как это сделать.
agregator вне форума Ответить с цитированием
Старый 18.03.2016, 18:22   #2
kuklp
Участник клуба
 
Регистрация: 02.05.2010
Сообщений: 1,390
По умолчанию

Кросс:
http://www.planetaexcel.ru/forum/ind...oekte-vba-word
mailto: kuklp60@gmail.com, ящики для благодарностей:
WM Z206653985942, R334086032478, U238399322728
kuklp вне форума Ответить с цитированием
Старый 18.03.2016, 18:23   #3
IgorGO
Новичок
СтарожилДжуниор
 
Аватар для IgorGO
 
Регистрация: 05.02.2008
Сообщений: 9,487
По умолчанию

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

опишите подробнее принятую Вами схему взаимодействия между приложениями, что куда Вы пытаетесь передать?
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
IgorGO вне форума Ответить с цитированием
Старый 18.03.2016, 18:33   #4
agregator
Форумчанин
 
Аватар для agregator
 
Регистрация: 09.05.2009
Сообщений: 369
По умолчанию

В 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
agregator вне форума Ответить с цитированием
Старый 18.03.2016, 19:13   #5
IgorGO
Новичок
СтарожилДжуниор
 
Аватар для IgorGO
 
Регистрация: 05.02.2008
Сообщений: 9,487
По умолчанию

Код:
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
как-то так
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
IgorGO вне форума Ответить с цитированием
Старый 18.03.2016, 19:35   #6
agregator
Форумчанин
 
Аватар для agregator
 
Регистрация: 09.05.2009
Сообщений: 369
По умолчанию

На
Код:
set w = CreateObject("WScript.Shell").Run """C:\Users\Vladimir\Desktop\Слияние.docm"""
VBA пишет "Compile error:Expected: end of statement" и выделяет красным.
agregator вне форума Ответить с цитированием
Старый 18.03.2016, 19:44   #7
agregator
Форумчанин
 
Аватар для agregator
 
Регистрация: 09.05.2009
Сообщений: 369
По умолчанию

IgorGO, большое спасибо здесь Апострофф написал так
Код:
Private Sub Document_Open()
With GetObject(, "excel.application")
  ActiveDocument.MailMerge.DataSource.ActiveRecord = .activeworkbook.Sheets("Лист1").Range("A" & .ActiveCell.Row)
End With
End Sub
agregator вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
как использовать переменную,прописанную в другом юните? lubafffka Общие вопросы Delphi 2 01.05.2012 20:42
Можно ли использовать переменную как имя листа ? Sla27 Microsoft Office Excel 2 14.04.2012 17:42
Как создать переменную и использовать ее из буфера обмена. pavellyba Общие вопросы Delphi 2 26.08.2011 11:00
как использовать переменную в имени ячейки (цикл) ? sonic007 Microsoft Office Excel 2 12.01.2011 00:36
Word просит посмотреть переменную среды... Olegus Microsoft Office Word 4 12.05.2009 10:09