Создание нового документа Word из Excel

[SERGO1]

Уважаемые знатоки, здравствуйте! Подскажите пожалуйста, почему у меня не срабатывает макрос по запуску Worda из Excel? Вроде бы сделал всё, как надо:
Sub OpenWord()
Dim wdApp As Object
Set wdApp = CreateObject("Word.Application")
wdApp.Documents.Add
wdApp.Visible = True
End Sub
Но при запуске этого макроса всё виснет. То, что Word запущен и открыт новый документ можно увидеть только при запуске диспетчера задач в момент снятия этой задачи. Что я сделал неправильно?

[VictorM]

Tools - References.. - Microsoft Word Object Library.
подключено?

[SERGO1]

Да, подключено.

[VictorM]

Тогда не знаю, у меня Ваш код

Sub OpenWord()
    Dim wdApp As Object
    Set wdApp = CreateObject("Word.Application")
    wdApp.Documents.Add
    wdApp.Visible = True
End Sub

сработал
все создается и отображается

[SERGO1]

Спасибо, что откликнулись на мою проблему. Буду разбираться, почему у МЕНЯ этот макрос не работает.

[SERGO1]

Спасибо, что откликнулись на мою проблему. Буду дальше разбираться, почему у МЕНЯ этот макрос не срабатывает.

[EducatedFool]

С макросом все нормально. Всё должно работать.
Проблема, судя по всему, в некорректной установке Office.
Попробуйте переустановить Office, - и макрос заработает.

[SERGO1]

В продолжение объявленной темы. Обнаружил, что указанный макрос не работает под управлением ОС Windows Vista: система зависает и выдаёт сообщение, что Microsoft Office Excel ожидает завершения OLE-операции другим приложением. Под ОС Windows XP всё работает замечательно. Кто может подсказать, счем это связано.

[VictorM]

У меня работает под win7
а ОС Windows Vista на то и Vista чтобы не работать
ИМХО

[doober]

Сообщение от SERGO1

и выдаёт сообщение, что Microsoft Office Excel ожидает завершения OLE-операции другим приложением. Под ОС Windows XP всё работает замечательно. Кто может подсказать, счем это связано.

Это говорит о том,что ворд запускается больше минуты.Обычно если нету отклика более 60 секунд,то ОС выдает такое сообщение.