Домашняя страница Undo Do Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Печать рассылки в ворде не открывая документ - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Excel и другие приложения » Word » Печать рассылки в ворде не открывая документ (Макросы/Sub)
Печать рассылки в ворде не открывая документ
drugaja Дата: Пятница, 15.01.2016, 19:05 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 1
Репутация: 0 ±
Замечаний: 0% ±

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

Автор - drugaja
Дата добавления - 15.01.2016 в 19:05
Manyasha Дата: Суббота, 16.01.2016, 12:29 | Сообщение № 2
Группа: Модераторы
Ранг: Старожил
Сообщений: 1721
Репутация: 722 ±
Замечаний: 0% ±

Excel 2007, 2010
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]
Хотя в макросе-то ворд все равно открывается.


marinamorozova_box@mail.ru
ЯД: 410013299366744 WM: R193491431804
 
Ответить
Сообщение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]
Хотя в макросе-то ворд все равно открывается.

Автор - Manyasha
Дата добавления - 16.01.2016 в 12:29
krosav4ig Дата: Понедельник, 18.01.2016, 19:19 | Сообщение № 3
Группа: Друзья
Ранг: Старожил
Сообщений: 1420
Репутация: 585 ±
Замечаний: 0% ±

Excel 2007, 2013
Есть таблица в ексель
а у нас ее нету
на основании её делается рассылка в ворде
и файла с полями слияния тоже нету
Хотелось бы создать кнопочку в екселе
ну дык что мешает-то вставить кнопку в файл excel с таблицей и приложить его (файл) и документ с полями слияния к сообщению?

[p.s.]ТЫК


(_)Õvõ(_)
 
Ответить
Сообщение
Есть таблица в ексель
а у нас ее нету
на основании её делается рассылка в ворде
и файла с полями слияния тоже нету
Хотелось бы создать кнопочку в екселе
ну дык что мешает-то вставить кнопку в файл excel с таблицей и приложить его (файл) и документ с полями слияния к сообщению?

[p.s.]ТЫК

Автор - krosav4ig
Дата добавления - 18.01.2016 в 19:19
Мир MS Excel » Вопросы и решения » Excel и другие приложения » Word » Печать рассылки в ворде не открывая документ (Макросы/Sub)
Страница 1 из 11
Поиск:

Яндекс цитирования
© 2010-2017 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!