Автоматизировать некоторые аспекты при работе с документами - VBA

Формулировка задачи:

Здравствуйте! Уже ни один месяц вынашиваю идею создания программы, которая поможет автоматизировать некоторые аспекты в моей работе при работе с документами. Одно большое НО, я полный ноль в программировании. Изучаю всевозможную литературу "Для чайников" и это не помогает. Не техническое у меня образование и всё. В общем, большую часть времени моя рутинная работа состоит в том, что я из документа в документ переписываю практически идентичную информацию. То есть допустим, составляю я договор аренды, в котором указываю "наименование документа", "дату составления", "реквизиты сторон", предмет договора", "стоимость" и т.д. Соответственно часть из этих указанных "элементов" я забиваю в другой текстовый документ, допустим, "уведомление о заключении договора", в котором я указываю те же "наименование документа", "дату составления" и "предмет договора". Часть из этих указанных "элементов" я забиваю в третий документ, допустим "отчет о заключении", где забиваю помимо все прочего стандартного текста, предположим, только "дата составления", "реквизиты сторон". Получается, что второй и третий документ, в который я забиваю информацию из первоначального договора шаблонные и в нём изменяются только указанные реквизиты договора. А таких документов куча... С чего начать? Как сделать удобную программу, с помощью которой можно ввести информацию ("дата составления", "предмет договора" и т.п.), после чего данная информация автоматически заполняется в нужных местах в нужных текстовых документах. Пытался изучать язык C++, однако профи-программисты сказали, что я не туда пошел. Макросы - мне кажется немного не то. Сейчас пытаюсь разобраться в microsoft access - создание баз данных. Поделитесь опытом, советом, литературой. Заранее благодарю!!

Решение задачи: «Автоматизировать некоторые аспекты при работе с документами»

textual
                            Листинг программы 
                        

                            Sub Вставить_в_отчет()
 
Dim WA As Object, WD As Object
 
Set WA = CreateObject("Word.Application")
Set WD = WA.Documents.Open("C:\ШАБЛОНЫ\связка\shablon.docx")
 
WD.Range.Find.Execute FindText:="{$НОМПАТЕНТ01}", ReplaceWith:=Cells(2, 2), Replace:=2
WD.Range.Find.Execute FindText:="{$Наименовпатент01}", ReplaceWith:=Cells(2, 3), Replace:=2
WD.Range.Find.Execute FindText:="{$Названпатент01}", ReplaceWith:=Cells(2, 4), Replace:=2
WD.Range.Find.Execute FindText:="{$МПКпатент01}", ReplaceWith:=Cells(2, 5), Replace:=2
WD.Range.Find.Execute FindText:="{$датапублпатент01}", ReplaceWith:=Cells(2, 6), Replace:=2
WD.Range.Find.Execute FindText:="{$Статуспатент01}", ReplaceWith:=Cells(2, 7), Replace:=2
WD.Range.Find.Execute FindText:="{$Имязаявит01}", ReplaceWith:=Cells(2, 8), Replace:=2
WD.Range.Find.Execute FindText:="{$Номерзаявк01}", ReplaceWith:=Cells(2, 9), Replace:=2
WD.Range.Find.Execute FindText:="{$Датаподачзаяв01}", ReplaceWith:=Cells(2, 10), Replace:=2
WA.Visible = True
Set WA = Nothing
 
End Sub
                        