Option Explicit

Sub SplitNotes(delim As String)
Dim doc As Document
Dim arrNotes As Variant
Dim strPath As String
Dim strFilename As String
Dim I As Long
Dim X As Long
Dim oPara As Range
Dim Response As Integer
    ActiveDocument.Save
    strPath = ActiveDocument.Path
    arrNotes = Split(ActiveDocument.Range, delim)
    Response = MsgBox("This will split the document into " & UBound(arrNotes) + 1 & _
                      " sections.Do you wish to proceed?", 4)
    If Response = 7 Then Exit Sub
    For I = LBound(arrNotes) To UBound(arrNotes)
        If Trim(arrNotes(I)) <> "" Then
            X = X + 1
            Set doc = Documents.Add(Template:=ActiveDocument.FullName)
            doc.Range = arrNotes(I)
            Set oPara = doc.Paragraphs(1).Range
            oPara.End = oPara.End - 1
            strFilename = oPara.Text & Chr(32)
            doc.SaveAs strPath & "\" & strFilename & Format(X, "000")
            doc.Close True
        End If
    Next I
lbl_Exit:
    Set doc = Nothing
    Exit Sub
End Sub
Sub test()
'delimiter
    SplitNotes "XXX"
End Sub