title: Split Word Document and Save as (.RTF)
body: <p>I have <a href="https://www.extendoffice.com/documents/word/966-word-split-documents-into-multiple-documents.html" rel="nofollow noreferrer">this VBA code</a> which split word document into multiple documents by the splitter (///),</p>
  <pre><code>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(&quot;This will split the document into &quot; &amp; UBound(arrNotes) + 1 &amp; &quot; sections.Do you wish to proceed?&quot;, 4)
  If Response = 7 Then Exit Sub
  For I = LBound(arrNotes) To UBound(arrNotes)
  If Trim(arrNotes(I)) &lt;&gt; &quot;&quot; Then
  X = X + 1
  Set doc = Documents.Add
  doc.Range = arrNotes(I)
  doc.SaveAs ThisDocument.Path &amp; &quot;\&quot; &amp; strFilename &amp; Format(X, &quot;000&quot;)
  doc.Close True
  End If
  Next I
  End Sub
  Sub test()
  'delimiter &amp; filename
  SplitNotes &quot;///&quot;, &quot;Notes &quot;
  End Sub
  </code></pre>
  <p>this saves the splitted docs to (.Docx), How can I save them into (.Rtf) instead?</p>