Помогите пожалуйста

[Анна78]

Здравствуйте, у меня вот такая проблема:
1)есть данные в экселе в виде таблицы из двух столбцов- а) книга б)дата ее выпуска
2) есть документ word, где в определенном месте нужно получить список тех самых книг, который при печати не будет виден, т.е должна быть менюшка, где я смогу выбрать любую книгу (встроенные поля drop&down не подходят, потому что туда нужно забивать значения руками, а у меня этих значений оч много), и при выборе книги в соседнем поле нужно чтобы автоматически выскакивала дата выпуска из все той же таблицы в экселе.
Спасибо вам большое за помощь, очень надеюсь, что вы мне поможете.

[Денис]

Анна78
Боюсь тебе придется вызывать в ворде методы работы с базами данных (таблицы экселя будут восприниматься, как таблицы базы данных. Это даст тебе неограниченные возможности по выборке, сортировке и группировке данных. Но сначала тебе придется изучить эту предметную область, которая на первый взгляд никак не связана ни с вордом ни с экселем

[Димитрий]

(встроенные поля drop&down не подходят, потому что туда нужно забивать значения руками, а у меня этих значений оч много),

руками не потребуется, хотя и поле со списком можно сделать и в меню.
В чём загвоздка (по порядку)?

[Анна78]

(встроенные поля drop&down не подходят, потому что туда нужно забивать значения руками, а у меня этих значений оч много),

руками не потребуется, хотя и поле со списком можно сделать и в меню.
В чём загвоздка (по порядку)?

загвоздка собственно уже описана.. стоит задача, а как ее реализовать я не знаю, пробовала слияние, но при слиянии пропадают все макросы, существующие в документе, приходится пересохранять все, а мне нужно меню, и чтобы все было быстро и понятно

[Анна78]

(встроенные поля drop&down не подходят, потому что туда нужно забивать значения руками, а у меня этих значений оч много),

руками не потребуется, хотя и поле со списком можно сделать и в меню.
В чём загвоздка (по порядку)?

загвоздка собственно уже описана.. стоит задача, а как ее реализовать я не знаю, пробовала слияние, но при слиянии пропадают все макросы, существующие в документе, приходится пересохранять все, а мне нужно меню, и чтобы все было быстро и понятно

[Димитрий]

Посмотрите пример на скорую руку.
Может быть поможет.

[Анна78]

Посмотрите пример на скорую руку.
Может быть поможет.

Димитрий, у меня не работает пример=( пишет ошибку в это строке:
Set objWb = objEx.Workbooks.Open("kn1.xls")

и предлагает прервать процесс.

[Димитрий]

А файл kn1.xls лежит в той же папке, если нет укажи полный путь к файлу.

[alex_gearbox]

Файл kn1.xls лежит в той же папке, что и Doc1.doc. Но ошибка выскакивает.
Небходимо строку

Код: Выделить всё

Set objWb = objEx.Workbooks.Open("kn1.xls")

заменить на

Код: Выделить всё

Set objWb = objEx.Workbooks.Open(ThisDocument.Path & "/" & "kn1.xls")