Excel VisualBasic Script

Sub break5()
    ActiveDocument.Sections.add Range:=ActiveDocument.Range(Start:=ActiveDocument.Paragraphs(2).Range.Start, _
            End:=ActiveDocument.Paragraphs(2).Range.End), Start:=wdSectionContinuous
End Sub