Diviser un gros document Word en plusieurs Word unique (1200 pages)

Diviser un gros document Word en plusieurs Word unique (1200 pages) - VB/VBA/VBS - Programmation

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?  :pt1cable:  :pt1cable:  :hello:  
 
Merci par avance, cher spécialiste..

Reply

Marsh Posté le 28-05-2019 à 15:50:24   

Reply

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

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed