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

[The_Prist]

Ошибка явно локальная. Может быть подобный подход выручит:

Sub OpenWord()
 Dim wdApp As Object
 Set wdApp = CreateObject("Word.Application")
 DoEvents
 'еще можно добавить Wait, чтобы дождаться запуска Word. Но это как крайних случай
 wdApp.Documents.Add
 wdApp.Visible = True
 End Sub