> Tous les forums > Forum Bureautique
 word 2010 découper un fichier de 120 pages
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
domie51
  Posté le 06/09/2014 @ 07:47 
Aller en bas de la page 
Nouvelle astucienne

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

Publicité
Titus68
 Posté le 06/09/2014 à 15:14 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

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.

Titus68
 Posté le 06/09/2014 à 17:05 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

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



Modifié par Titus68 le 06/09/2014 17:06
Gabrilou
 Posté le 06/09/2014 à 17:35 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucienne

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



Modifié par Gabrilou le 06/09/2014 17:39
Titus68
 Posté le 06/09/2014 à 18:00 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

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



Modifié par Titus68 le 06/09/2014 18:01
Page : [1] 
Page 1 sur 1

Vous devez être connecté pour poster des messages. Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !


Sujets relatifs
insérer nombre de pages dans word 2010
comment numéroté les pages sous Word 2010
Scinder un fichier Word aux pages numérotées
créer fichier compressé avec pages word
Numérotation des pages sous Word 2010
fichier word en pdf image 250 pages impossible
réunion de plusieurs pages word en un seul fichier
Images plus visibles dans fichier Word 2013
MODIFIER pagination et supprimer page blanche - WORD 2010
Word 2010 Doc1.docx modifié. Rétablir original
Plus de sujets relatifs à word 2010 découper un fichier de 120 pages
 > Tous les forums > Forum Bureautique