Découper un fichier Word post publipostage en plusieurs fichiers Word

Bonjour,

Je fais appel à vous après de multiples recherches infructueuses.

J'ai réalisé un publipostage qui m'a donné un fichier au format word de plusieurs centaines de pages.

Le fichier en question comporte des mises en formes (tableaux, sauts de sections, pages en paysages...) et images.

Je souhiaterais découper ce fichier word post publipostage source en plusieurs documents, la taille des documents en question est variable en raison de la variabilité des champs publipostés (environ 6-8 pages).

Compte tenu de la contrainte de variabilité des fichiers finaux, je pensais plutot utiliser un séparateur pour indiquer à word où couper à la fin de chaque section que je pourrais inclure dans mon fichier avant publipostage.

J'ai ensuite essayé d'utiliser le code VBA (mes connaissances en la matières sont extrèmement limitées) ci dessous et trouvé à cette adresse : https://fr.extendoffice.com/documents/word/966-word-split-documents-into-multiple-documents.html, il fonctionne et "coupe" bien mon fichier initial mais ne conserve pas la mise en forme ni les images.

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

y a t il un moyen de conserver le formatage en modifiant ce code? ou faut il utiliser une autre méthode?

Je vous remercie d'avance pour vos réponses et vous souhaite une bonne soirée.

Bien cordialement.