Diviser un gros document Word en plusieurs Word unique (1200 pages) - VB/VBA/VBS - Programmation
Marsh Posté le 15-06-2019 à 22:46:05
je viens de tester ce code, il marche, et il est rapide
il sort du RTF, mais on peut peut être le modifier
https://superuser.com/questions/428 [...] -documents
For i = 1 To 100
Application.Browser.Target = wdBrowsePage
ActiveDocument.Bookmarks("\page" ).Range.Copy
Documents.Add
Selection.Paste
ChangeFileOpenDirectory "C:\test\"
ActiveDocument.SaveAs FileName:="DCX_" & i & ".rtf", FileFormat:=wdFormatRTF
ActiveDocument.Close
Application.Browser.Next
Next i
Marsh Posté le 28-05-2019 à 15:50:24
Bonjour,
j'aimerais trouver une solution pour découper un gros fichier word qui comprend 1200 pages à l'intérieur, afin que je puisse sortir non pas un fichier qui comprend les 1200 pages, mais 1200 documents word (en fait séparé).
Le contraire, c'est facile, mais ce que je veux, je ne trouve pas.
J'ai essayé via VBA, mais ça me sort 3 pages par document (1 page avec le haut de page, 2eme page avec le bas de page, et une 3eme page avec rien dedans),
j'ai essayé aussi avec l'application Kutools for Word (ça marche bien), mais ça prend beaucoup beaucoup beaucoup trop de temps (d'après mes calculs, au moins 1 semaine de traitement pour la division des 1200 pages).
Bien entendu, je veux trouver une solution automatisée.
Avez-vous une idée à mon problème que je galère depuis 2 semaines?
Merci par avance, cher spécialiste..