Как в макросе Word исправить удаление форматирования текста при его выполнении?

Question

[R111-svg]

Суть макроса заключается в разбивке большого документа Word по идентификатору "///", макрос работает, разделяет документ, но в разделенных документах слетает форматирование текста, таблицы и всё что только может, помогите исправить пожалуйста.

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

Comments

[Akina]

Только полностью переписывать.

Проблема в использовании Split() - эта функция работает только с текстовым значением.

[R111-svg]

Подскажите пожалуйста как в таком случае должен выглядеть макрос?