Итак......задача весьма проста - открыть Word из Excel.
1 Вариант - Поздняя привязка.
(лезем в ссылки - отрубаем ссылку на Word и запускаем сие...)
- Код: Выделить всё
Dim objWord As Object
Set objWord = CreateObject("Word.Application")
MsgBox objWord.Version
With objWord
.Visible = True
.WindowState = xlMaximized
End With
objWord.Quit
Set objWord = Nothing
Эффекта - никакого. То есть CreateObject - вообще не отрабатывает свое. Почему?
2 Вариант - Раняя привязка.
(лезем в ссылки - подключаем ссылку на Word и запускаем сие...)
- Код: Выделить всё
Dim objWord As New Word.Application
Dim objWordDoc As Word.Document
With objWord
.Visible = True
.WindowState = xlMaximized
End With
Set objWordDoc = objWord.Documents.Add
objWordDoc.Application.Activate
MsgBox objWord.Version
objWord.Quit
Set objWord = Nothing
Эффект есть - но в Worde вылетает сообщение:
"Неверна указана единица измерения". Если убрать данное сообщение - дальше код отрабатывается нормально.
Но...мне надо так 20 Word файлов отработать.
Лезем в Wordе: Сервис/ Параметры/Обшие/Единицы измерения/
И что? Чтобы там не менять - все одно вылетает ошибка.
Кто может подсказать, в каком варианте и как можно добиться безглючного открытия Word?
ПС. Год назад я без проблем решал такую задачу. Но тогда стоял офис 2000. Сейчас на работе поставили 2003 ...и понеслось...
