Здравствуйте, уважаемые форумчане. Помогите чайнику разобраться. Использую этот код (только часть, но не отрабатывает как следует именно она). Нужно что бы их Excel открылся файл ворд. Но открывается он через раз. Ошибок не появляется. Макрос просто отрабатывает до конца. Пробовал на разных компах. Результат тот же. Само приложение запускается (смотрел в диспетчере задач), а вот файл нет. По идее далее в этот файл должны подставится значения из Excel. Думал, может в скрытом режиме все происходит, но нет. Если файл не открылся, то и значения не подставились. Может для открытия использовать другой код? Или этот как то подправить?

Dim wd, dc1 As Object

On Error Resume Next
Set wd = GetObject(, "word.application")
If wd Is Nothing Then
  wd = CreateObject("word.application")
End If
Set dc1 = wd.Documents.Open("C:\Путь к файлу.doc")
wd.Visible = True