[решено] Как сделать текущую строку в ворд-файле как "Заголовок 1" через макрос?

[megagogo]

Сегодня написал макрос (опыта почти нет).
Данный макрос делает следующее: вставляет в самый низ документа несколько пустых строк, вставляет из буфера обмена текст, переводит на первую строку текста курсор. Хотел сделать так, чтобы первая строка становилась заголовком, но почему-то делает "заголовок 1" сразу весь текст а не первую строчку...
Вот код, прошу посоветовать, как доработать чтобы первая строка была "заголовок 1", а остальной текст был обычного форматирования?

Sub MEGA()
'
' MEGA Ìàêðîñ
'
'
Selection.EndKey Unit:=wdStory
Selection.TypeParagraph
Selection.TypeParagraph
Selection.TypeParagraph
Selection.TypeParagraph
Selection.TypeParagraph
Selection.TypeParagraph
Selection.TypeParagraph
Selection.TypeParagraph
Selection.PasteAndFormat (wdFormatOriginalFormatting)
Application.GoBack

End Sub

[a_axe]

megagogo, попробуйте такой код:
Sub MEGA()

Selection.EndKey Unit:=wdStory

Selection.TypeParagraph
Selection.TypeParagraph
Selection.TypeParagraph
Selection.TypeParagraph
Selection.TypeParagraph
Selection.TypeParagraph
Selection.TypeParagraph
Selection.TypeParagraph

Selection.Font.Reset
Selection.PasteAndFormat (wdFormatPlainText)
Application.GoBack

Selection.EndKey Unit:=wdLine
Selection.TypeParagraph
Selection.MoveUp Unit:=wdLine, Count:=1
Selection.HomeKey Unit:=wdLine
Selection.EndKey Unit:=wdLine, Extend:=wdExtend
Selection.Style = ActiveDocument.Styles("Заголовок 1")
End Sub

[megagogo]

a_axe, Спасибо, не знаю как вы это сделали, но скрипт работает, проверил несколько раз, сейчас еще более детально попробую повставлять этим кодом, думаю все будет нормально!!!

[a_axe]

не знаю как вы это сделали »
где-то так:
1. Включил запись макроса.
2. Проделал руками все пункты без исключений используя клавиши (то есть перешел в конец документа, вставил текст, перешел в начало, поставил энтер после первой строки, выделил первую строку и присвоил ей стиль).
3. Посмотрел, что получилось и подправил мелочи, без чего в принципе можно было обойтись.