Через раз запускается word из Excel

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Через раз запускается word из Excel (Макросы/Sub)

homelessRustam

Дата: Воскресенье, 22.09.2019, 15:11 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 2

Репутация: 0 ±

Замечаний: 0% ±

Excel 2016

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

[vba]

Код

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

[/vba]