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 !