Diviser un fichier word en plusieurs / saut section / VBA

Bonjour,

Je souhaiterai diviser un gros document word généré par publipostage (environ 1300 pages) en plusieurs documents et cela au niveau de chaque saut de section.

J'ai trouvé un script vba qui me permet de faire ça à sur le site :

... de-section

(J'ai choisi le second script proposé)

Sub couper_sections()
 Application.Browser.Target = wdBrowseSection

 For i = 1 To ((ActiveDocument.Sections.Count) - 1)

 'Selectionne et copie le texte de la section dans le presse-papier
 ActiveDocument.Bookmarks("\Section").Range.Copy

 'Crée un nouveau document et colle le texte du presse-papier
 Documents.Add
 Selection.Paste

 ' Retire le saut de section qui a été copié
 Selection.MoveUp Unit:=wdLine, Count:=1, Extend:=wdExtend
 Selection.Delete Unit:=wdCharacter, Count:=1

 ChangeFileOpenDirectory "C:\"
 DocNum = DocNum + 1
 ActiveDocument.SaveAs FileName:="test_" & DocNum & ".doc"
 ActiveDocument.Close
 'section suivante
 Application.Browser.Next
 Next i
 ActiveDocument.Close savechanges:=wdDoNotSaveChanges
End Sub

Cela fonctionne bien sauf que la mise en page est complétement chamboulée dans les nouveaux fichiers (taille de police, saut de ligne ...).

Est ce que vous auriez une solution pour que rien ne bouge ?

Merci !

bonjour

un publipostage génère généralement des documents A4 simples

autant que de destinataires

ces documents sont séparés les uns des autres

je ne comprends donc pas comment tu obtiens UN fichier de 1300 p

Rechercher des sujets similaires à "diviser fichier word saut section vba"