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..