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

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

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

Восстановить пароль

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

Ответ
 
Опции темы Поиск в этой теме
Старый 17.03.2010, 08:46   #1
SilverSmallFish
Пользователь
 
Регистрация: 10.03.2010
Сообщений: 25
По умолчанию Программно подключить Microsoft Word 11.0 (12.0) Object Library

Здравствуйте!
Подскажите, пожалуйста, как мне программно в Excel 2003-2007 подключить библиотеку Microsoft Word 11.0 (12.0) Object Library и также программно отключить MISSING ........, у меня ранее связывание

Dim myWord As Word.Application
.........
Set myWord = GetObject(, "Word.Application")
.......


Заранее спасибо
SilverSmallFish вне форума Ответить с цитированием
Старый 17.03.2010, 12:30   #3
viter.alex
Балуюсь кодами
Участник клуба
 
Аватар для viter.alex
 
Регистрация: 09.01.2009
Сообщений: 1,837
По умолчанию

Цитата:
Сообщение от SilverSmallFish Посмотреть сообщение
…у меня ранее связывание

Dim myWord As Word.Application
.........
Set myWord = GetObject(, "Word.Application")
.......
Это винегрет. Если раннее связывание, тогда объект нужно создавать так:
Код:
Set myWord = New Word.Application
Лучше день потерять — потом за пять минут долететь!©
viter.alex вне форума Ответить с цитированием
Старый 17.03.2010, 13:36   #4
SilverSmallFish
Пользователь
 
Регистрация: 10.03.2010
Сообщений: 25
По умолчанию

Спасибо за наводку, но

ThisWorkbook.VBProject.References.A ddFromFile Application.Path & Application.PathSeparator & "MSWORD.OLB"

к сожалению не работает, ошибка

Может ещё будут варианты, буду рада
SilverSmallFish вне форума Ответить с цитированием
Старый 17.03.2010, 13:49   #5
SilverSmallFish
Пользователь
 
Регистрация: 10.03.2010
Сообщений: 25
По умолчанию

А вам винегрет не нравиться?
Если это как то повлияет на то что мне нужно, тогда буду рада, предложениям
SilverSmallFish вне форума Ответить с цитированием
Старый 17.03.2010, 13:53   #6
The_Prist
Участник клуба
 
Аватар для The_Prist
 
Регистрация: 17.07.2009
Сообщений: 1,088
По умолчанию

Цитата:
Сообщение от SilverSmallFish Посмотреть сообщение
ThisWorkbook.VBProject.References.A ddFromFile Application.Path & Application.PathSeparator & "MSWORD.OLB"

к сожалению не работает, ошибка
А что за ошибка? Может у Вас в указанной папке нет нужной библиотеки? Откройте папку с установленным Офисом и поищите там файл MSWORD.OLB.
И посмотрите как называется файл библиотеки Word в Tools-References, когда Вы её подключаете вручную. Там же можно посмотреть точный путь к файлу библиотеки.
WebMoney - R298726502453; Яндекс.Деньги - 41001332272872
www.excel-vba.ru
The_Prist вне форума Ответить с цитированием
Старый 17.03.2010, 13:57   #7
viter.alex
Балуюсь кодами
Участник клуба
 
Аватар для viter.alex
 
Регистрация: 09.01.2009
Сообщений: 1,837
По умолчанию

Какая ошибка-то? Expected end of statement?
Да, винегрет мне не нравится. Я не могу объяснить в чём ошибка с точки зрения скорости и эффективности работы, но это запутывает код. Т.е. сначала у вас, якобы, раннее связывание, а потом вы используете GetObject, который применяется только при позднем. Логическая несостыковка. Хотя работать будет.
В принципе, я делаю так: пока проектирую использую ранее связывание, а когда код отлажен, то перевожу на позднее, чтобы не зависеть от ссылок.
Лучше день потерять — потом за пять минут долететь!©
viter.alex вне форума Ответить с цитированием
Старый 17.03.2010, 14:00   #8
SilverSmallFish
Пользователь
 
Регистрация: 10.03.2010
Сообщений: 25
По умолчанию

Библиотека существует и путь находит правильно

C:\Program Files\Microsoft Office\Office12\MSWORD.OLB

Ошибка - Application-defined or object-defined error

вот тако
SilverSmallFish вне форума Ответить с цитированием
Старый 17.03.2010, 14:06   #9
Aent
Форумчанин
 
Аватар для Aent
 
Регистрация: 17.07.2009
Сообщений: 519
По умолчанию

Полностью согласен с viter.alex.
SilverSmallFish, объясните пожалуйста: зачем вам понадобилось динамически подключать объектную библиотеку?
Aent вне форума Ответить с цитированием
Старый 17.03.2010, 14:06   #10
viter.alex
Балуюсь кодами
Участник клуба
 
Аватар для viter.alex
 
Регистрация: 09.01.2009
Сообщений: 1,837
По умолчанию

Пошагово пройди и посмотри какая строка вызывает эту ошибку.
Лучше день потерять — потом за пять минут долететь!©
viter.alex вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Проблема с Microsoft Word! Плохой хакер %) Microsoft Office Word 6 08.01.2010 10:39
Подскажите! Как подключить к ПК фотоэлемент и светодиод, и управлять ими программно? Vadix Помощь студентам 14 28.09.2009 15:42
Microsoft Visual C++ Library (Runtime Error!) Карась Свободное общение 2 25.12.2008 23:31
При завершение работы программы появляется окно Microsoft Visual C++ Debug Library TheWanderer Visual C++ 2 25.11.2008 00:27