Макросы Заполнение шаблонов в Word из форм

Заполнение шаблонов в Word из форм.

Откроем документ Word и создадим форму, для этого войдем в VBAProject и вставим форму


Поместим на форму Элемент TextBox и присвоем имя TextBox1 в Properties



Поместим на форму Элемент CommandButton и присвоем имя CommandButton1 в Properties



Двойным нажатием на левую кнопку мыши провалимся в событие CommandButton1_Click и создадим макрос для выполнения события при нажатии на кнопку

Sub CommandButton1_Click()
Dim oWord As New Word.Application
oWord.Visible = True

On Error GoTo RR
Set oDoc = oWord.Documents.Add("C:\Шаблон.docx")
oDoc.Bookmarks("first").Range.Text = TextBox1.Value

Exit Sub
RR:
oWord.Visible = False
MsgBox ("Ошибка!")
End Sub

Оператор «On Error GoTo RR» добавим как обработчик ошибки в случае ошибки открытия шаблона.

Создадим Шаблон Word. Откроем Word и установим курсор в нужном месте, на вкладке «Вставка» -> выбираем «Закладка» и в появившейся форме вводим имя закладки (например: first) -> нажимаем «Добавить». Сохраним под именем Шаблон.docx и потом закроем.



Теперь осталось запустить форму (из под VBAProject) -> перейдите на форму и нажмите «Run Sub»-> Заполнить поле TextBox1 и нажать на кнопку CommandButton1.

P.S. Обращаю внимание, что если вместо oWord.Visible = True написать oWord.Visible = False, то Шаблон Word появляться не будет.