Печать рассылки в ворде не открывая документ

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

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

Печать рассылки в ворде не открывая документ (Макросы/Sub)

drugaja

Дата: Пятница, 15.01.2016, 19:05 | Сообщение № 1

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

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

Сообщений: 1

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

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

Excel 2010

Добрый вечер! Помогите пожалуйста с макросом. Есть таблица в ексель, на основании её делается рассылка в ворде. Хотелось бы создать кнопочку в екселе,которая будет печатать текущий документ не открывая ворда

Ответить

Manyasha

Дата: Суббота, 16.01.2016, 12:29 | Сообщение № 2

Группа: Модераторы

Ранг: Старожил

Сообщений: 2198

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

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

Excel 2010, 2016

drugaja, примерно так:
[vba]

Код

Sub printWord()
    Dim wPath$: wPath = "Полное имя к документу ворд"
    Dim wApp As Object, wDoc As Object
    On Error Resume Next
    Set wApp = GetObject(, "Word.Application")
    If wApp Is Nothing Then Set wApp = CreateObject("Word.Application")
    Set wDoc = wApp.Documents.Open(wPath)
    wDoc.PrintOut
    wDoc.Close
    Set wDoc = Nothing: Set wApp = Nothing
End Sub

[/vba]
Хотя в макросе-то ворд все равно открывается.