Splitting Word document to multiple .txt files using a macro : Right now.. i am splitting a Single word document to Multiple using a custom delimiter. It Creates Multiple Word Files.. i want to create multiple .txt files instead of MS word Files.

the code that i am using right now is

    Sub SplitNotes(delim As String, strFilename As String)
        Dim doc As Document
        Dim arrNotes
        Dim I As Long
        Dim X As Long
        Dim Response As Integer
         
        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
                doc.Range = arrNotes(I)
                doc.SaveAs ThisDocument.Path & "\" & strFilename & Format(X, "000")
                doc.Close True
            End If
        Next I
    End Sub
     
     
    Sub test()
         '      delimiter & filename
        SplitNotes "%%%%%%%%%%%%%%", "Notes "
    End Sub

Can anyone help me with this please.