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

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)

- Microsoft Office (Word, Excel, Outlook и т.д.) (http://forum.oszone.net/forumdisplay.php?f=115)

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

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

HTML код:

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

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

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

Цитата:

Цитата megagogo

не знаю как вы это сделали »

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