Sub Scatter_sections()
    Dim src As Document
    Dim dst As Document
    Dim i As Integer
    
    Set src = ActiveDocument
    For i = 1 To src.Sections.Count - 1
        src.Sections(i).Range.Copy
        Set dst = Documents.Add
        dst.Range.Paste
        dst.Sections(2).PageSetup.SectionStart = wdSectionContinuous
        dst.SaveAs src.Path & "\" & Left(src.Name, Len(src.Name) - 4) & _
            "_" & Format(i, "000")
        dst.Close
    Next
End Sub