Diviser un fichier word en plusieurs / saut section / vba

Word, PowerPoint, Outlook, Access et tous les autres logiciels de la suite Office (sauf Excel)
n
nalumi
Nouveau venu
Nouveau venu
Messages : 1
Inscrit le : 4 août 2017
Version d'Excel : 2010

Message par nalumi » 4 août 2017, 09:10

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 :

http://www.faqword.com/index.php/word/f ... 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 !
j
jmd
Fanatique d'Excel
Fanatique d'Excel
Messages : 10'659
Appréciations reçues : 249
Inscrit le : 8 décembre 2007
Version d'Excel : 365 + PowerBI

Message par jmd » 14 août 2017, 15:10

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
Apprenez les fonctions d'Excel.
Exemple "Mettre sous forme de tableau", TCD, "Récupérer des données".
Apprendre les fonctionnalités "récentes".
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message