Проверка открыт ли файл Word

Пользователь

Сообщений: 7 Регистрация: 14.03.2012

16.05.2014 16:44:22

Здравствуйте, уважаемые. Проверьте, пожалуйста, мой файл и помогите дописать функцию проверки "открыт ли файл Word":
1. Если открыт в него же надо вставить значения.
2.Если нет создать новый и перенести значения.

Работают пока только 2 кнопки А1 и B1, остальное сама доделаю, только с функцией не знаю.

Прикрепленные файлы

база реквизиты.xlsm (51.58 КБ)
Шаблон.docx (16.32 КБ)

Игорь

Пользователь

Сообщений: 3695 Регистрация: 23.12.2012

16.05.2014 17:00:04

как-то так:

Код

    Set doc = word_app.Documents("Шаблон.docx") ' пытаемся найти ранее открытый файл
    If doc Is Nothing Then ' если такого файла нет - открываем
        Set doc = word_app.Documents.Add(ThisWorkbook.Path & "\Шаблон.docx")
    End If

ну вы и форму там намутили)
не проще ли было воспользоваться готовым решением для заполнения документов по шаблонам?
http://excelvba.ru/programmes/FillDocuments

Надстройки для Excel Парсинг сайтов Мониторинг цен конкурентов

МаринаД Пользователь Сообщений: 7 Регистрация: 14.03.2012	#3 05.07.2014 19:27:13 Спасибо, за подсказку. Может и наворотила, как сумела. Еще раз спасибо.

Читают тему