[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. Посмотрел, что получилось и подправил мелочи, без чего в принципе можно было обойтись.