VBA EXCEL and WORD

[skiny_love]

Здравствуйте, пишет с просьбой о помощи вам девушка, которая далека от программирования примерно настолько же, насколько туфли от Лабутена от среднестатистического молодого человека.

Итак, у меня есть программа:

PHP код:

Dim pol As String
Private Sub OptionButton1_Click()
If (OptionButton1.Value = True) Then pol = OptionButton1.Caption
If (OptionButton2.Value = True) Then pol = OptionButton2.Caption

End Sub

Private Sub SpinButton1_Change()
TextBox5.Text = SpinButton1.Value
End Sub
Private Sub SpinButton2_Change()
TextBox6.Text = SpinButton2.Value
End Sub
Private Sub CommandButton1_Click()
Worksheets("Лист1").Rows("2:2").Select
Selection.Insert Shift:=xlDown
Worksheets("Лист1").Range("a2").Value = TextBox1.Text
Worksheets("Лист1").Range("b2").Value = TextBox2.Text
Worksheets("Лист1").Range("c2").Value = TextBox3.Text
Worksheets("Лист1").Range("d2").Value = pol
Worksheets("Лист1").Range("e2").Value = TextBox5.Text
Worksheets("Лист1").Range("f2").Value = ComboBox2.Text
Worksheets("Лист1").Range("g2").Value = TextBox4.Text
Worksheets("Лист1").Range("h2").Value = TextBox6.Text
Worksheets("Лист1").Range("i2").Value = TextBox7.Text
Worksheets("Лист1").Range("j2").Value = ComboBox2.Text
  MsgBox "Сохранено удачно"
count = 0
For Each cell In Columns("a").Cells
 If cell.Value <> "" Then
  count = count + 1
  End If
  Next
End Sub 


визуально программа выглядит так:


задание после написания программы, что выше

13. Запуск из программы редактора MS WORD и создание документа с введенными данными.

14. Предварительное действие: 
	1) В конце программы ввести следующий код
Dim oWord As Word.Application
Dim oDoc As Word.Document
Set oWord = CreateObject("Word.Application")
Set oDoc = oWord.Documents.Add()
oWord.Visible = True
oDoc.Activate
With oWord
Код предназначен для открытия MS WORD
	2) Добавить в VBA поддержку работы с MS WORD
		Зайти в меню Tools – Reference
 	
И выбрать Microsoft Word 11.0 Object Library
 

15. Откройте редактор MS WORD. Начните запись макроса (Сервис->Макрос->Начать запись…)

16. Аккуратно без ошибок напечатайте ваш документ, если у вас есть поле с текущей даты, то вставьте его следующим образом: Вставка ->Дата и время…

17. Остановите запись макроса

18. Зайти в Сервис->Макрос->Макросы выбрать только что созданный макрос и нажать кнопку Изменить

19. Скопировать код программы (между “Sub …()”  и “End Sub”) и перенести его в конец создаваемой программы

20. После скопированного фрагмента напишите команду End With

21. В скопированном фрагменте перед каждым употреблением Selection поставить точку ( . )
	Например:
		Было: Selection.TypeParagraph
		Сделать .Selection.TypeParagraph

22.  Необходимо подставить переменные с информацией из UserForm в документ. (Все необходимые переменные уже использовались в пункте 11)
Для этого нужно найти в скопированном фрагменте текст за место, которого необходимо выводить значение переменной. Например:
	Необходимо вывести фамилию заполнившего бланк
Находим в программе слово Имя:
   .Selection.TypeText Text:="Имя: "
    .Selection.Font.Bold = wdToggle
    .Selection.Font.Italic = wdToggle
    .Selection.TypeText Text:="Семен"
    .Selection.TypeParagraph

Там же видим команду выводящее само имя Семен 
.Selection.TypeText Text:="Семен"
вместо этого имени  пишем нашу переменную хранящую имя (TextBox2.Text )
.Selection.TypeText Text:= TextBox2.Text

Пожалуйста, объясните мне кто-нибудь, как это сделать. Я пыталась, искренне, но Ворд у меня ничего не запускает (потому что нет кнопки) и вообще, там написано "Скопировать код программы (между “Sub …()” и “End Sub”) и перенести его в конец создаваемой программы". Что и куда вставлять я не понимаю!

Очень надеюсь на вашу помощь! Сдавать завтра!! Мне нужно пошагово понять, что, куда и почему! А главное "КААК?!"