[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