bonjour,

j'ai reçu un fichier word de 180 pages groupées qui représente 90 pages recto-verso pour des personnels.

je voudrai séparer ce fichier après toutes les pages paires pour obtenir 90 pages individuelles que je pourrai renommer et classer par ordre alphabétique ce qui est beaucoup plus simple pour travailler.

avez-vous une astuce autre que faire "fichier, enregistrer sous" mettre le nom de la personne, supprimer les 2 premières pages la concernant et recommencer jusqu'à la fin.

d'avance merci - bon week-end

Bonjour,

Avec une macro vba çà doit être possible, un exemple Microsoft ici mais page/page qu'il faudrait adapter :

http://support.microsoft.com/kb/306348

Par contre pour récupérer le nom il faudrait pouvoir le repérer dans le document (par exemple, est qu'il y a un libellé avant ?).

Il y aurait éventuellement une autre solution, imprimer par PDFcreator le fichier word pour obtenir un gros Pdf puis utiliser un logiciel comme :

http://www.pdfsam.org/splitpdf/

par exemple (jamais testé) si les documents obtenus n'ont pas besoin d'être modifiées.

Rebonjour,

Une macro qui devrait couper toutes les 2 pages :

Ouvrir le document à éclater, créer une nouvelle macro sous word, remplacer sub... end sub, par ce qui est inscrit ci-dessous, puis exécuter la macro "EclateDoc". Si çà fonctionne correctement, un nouveau dossier "DocEclaté" (au même endroit que le fichier doc à traiter) devrait être créé et les documents de 2 pages devraient y être créés. Sauvegarder le document d'origine avant de lancer la macro : on ne sait jamais.

Sub EclateDoc()
Dim objFso
Set objFso = CreateObject("Scripting.FileSystemObject")
On Error Resume Next
documentAEclater = ActiveDocument.Name
If Err.Number <> 0 Then
MsgBox "Le document à éclater n'est pas ouvert !" & Chr(10) & "Abandon !", vbExclamation, "Eclater document word"
End
End If
DirSvg = ActiveDocument.FullName
For i = Len(DirSvg) To 1 Step -1
If Mid(DirSvg, i, 1) = "\" Then
DirSvg = Left(DirSvg, i - 1)
Exit For
End If
Next
If Not objFso.folderexists(DirSvg & "\DocEclaté") Then
objFso.createFolder (DirSvg & "\DocEclaté")
End If
Selection.GoTo what:=wdGoToLine, which:=wdGoToAbsolute, Count:=1
Application.Browser.Target = wdBrowsePage
'---------------------------------
' Nombre de page du document éclaté
'---------------------------------
Separation = 2
'---------------------------------
On Error GoTo 0

cptSeparation = 0
Pages = ActiveDocument.BuiltInDocumentProperties("Number of Pages")
For i = 1 To Pages
Documents(documentAEclater).Activate
Set CurrentPage = ActiveDocument.Bookmarks("\page").Range
CurrentPage.Copy
cptSeparation = cptSeparation + 1
If cptSeparation = 1 Then
Documents.Add
DocumentEnCreation = ActiveDocument.Name
End If
Documents(DocumentEnCreation).Activate
Selection.Paste
If cptSeparation = Separation Then
'Selection.TypeBackspace
DocNum = DocNum + 1
ActiveDocument.SaveAs FileName:=DirSvg & "\DocEclaté\test_" & DocNum & ".doc"
ActiveDocument.Close
cptSeparation = 0
End If
Documents(documentAEclater).Activate
Application.Browser.Next
Next i
ActiveDocument.Close savechanges:=wdDoNotSaveChanges
End Sub

Titus

Juste un commentaire

La première macro que tu indiques fournie, par Microsoft http://support.microsoft.com/kb/306348 fonctionne très bien (je l'avais déjà).

La tienne fait le travail également, je l'ai testée.

Cependant, à l'ouverture des fichiers créés pour ces deux macros, il y a un message d'erreur si l'on travaille avec la version 2007 de Word : Impossible de démarrer le convertisseur mswrd 632.wpcr

Pour éviter ce message et ouvrir les fichiers, il suffit de les renommer .docx

Edit : ou modifier la macro

Bonjour Gabrilou,

Concernant le pb. du convertisseur, il y a un fixit en principe :

http://support.microsoft.com/kb/973904/fr

Je ne suis pas sûr que ce soit celui-là mais il existe normalement.

Sinon avec ta méthode

Concernant la macro je n'ai pas pu renommer le fichier avec le nom vu que je ne sais pas ce qu'il faut chercher ...