Enregistrer un doc. Word en PDF individuel Fermé

Question

Bonjour,  

J'aimerais enregistrer un document Word (2010) de 120 pages en un document PDF par page. Donc, 120 documents PDF. 

Je sais qu'il est possible d'enregistrer via Word mon document en PDF et de sélectionner une seule page, mais la procédure est assez longue à faire et il faudrait que je la refasse encore et encore pour un total de 120 fois! 

S'il vous plait, dites moi qu'il existe un programme qui peu enregistre un document Word en plusieurs fichiers PDF! 

Merci en avance!  

Configuration: Windows 7 / Safari 534.30

contrariness · Accepted Answer

Oui, il y a bien une solution, mais helas.. payante..

Cela peut se faire avec Acrobat "Professionnel"

Apres avoir fait un PDF complet du document :
Dans le menu "Document/extraire des pages" il faut donner la sequence (de 1 a 120) et cocher la case "extraire les pages sous forme de fichiers distincts".

Il y a une version d'evaluation sur le site d'Adobe
https://acrobat.adobe.com/fr/fr/free-trial-download.html
Mais je ne connais pas les limitations....

Utilisateur anonyme · Answer

Salut,
Utilise PDF Créator.

Installe le comme un logiciel normal,
Une fois installé, ouvre ton document Word,
Fichier,
Imprimer,
Sélectionne PDF Créator,
OK.

Ton document Word de 120 pages sera transformé en PDF entièrement.

CMP · Answer

Bonjour,
pdf creator, peut être, je n'ai jamais fais 120 pages, mais une dixaine et ça fonctionnait très bien.
pdf creator est très bien pour crée des pdf a partir de n'importe quoi, le logiciel agit comme une imprimante, une fois installé, tu fais imprimer et tu choisi pdf creator et se mets a l'oeuvre, tu peux meme le proteger par mot de passe interdire l'impression , copie etc.

Syzygy · Answer

Bonjour,

Une autre solution consisterait à passer par une macro. Vous pouvez essayer la solution suivante :

Sub ExportPDF()

Dim NbPage As Integer
Application.ScreenUpdating = False

NbPage = ActiveDocument.Windows(1).Panes(1).Pages.Count 'Compte le nombre de page dans le document

'Dans cette section, modifier le paramètre "OutputFileName" pour changer le répertoire de sortie.
'Il est important de laisser la variable I dans le nom du fichier pour garder un numéro de chrono.
For I = 1 To NbPage

    ActiveDocument.ExportAsFixedFormat OutputFileName:= _
        "C:\Ark\Fiche n°" & I & ".pdf", ExportFormat:= _
        wdExportFormatPDF, OpenAfterExport:=False, OptimizeFor:= _
        wdExportOptimizeForPrint, Range:=wdExportFromTo, From:=I, To:=I, Item:= _
        wdExportDocumentContent, IncludeDocProps:=True, KeepIRM:=True, _
        CreateBookmarks:=wdExportCreateNoBookmarks, DocStructureTags:=True, _
        BitmapMissingFonts:=True, UseISO19005_1:=False
Next

Application.ScreenUpdating = True

MsgBox "Export terminé"
        
End Sub

Je l'ai testé avec 5 pages et j'ai bien 5 fiches différentes

Bonne journée,

Klimero44 · Answer

Bonsoir tout le monde,

Déjà, je suis désolé de ressortir un vieux topic, mais j'avoue, je n'ai pas trouvé meilleur code vba qu'ici !
Voilà, j'explique mon problème :
Je dois faire un publipostage avec une base de données sous Excel (Société, adresse, n° de contrat, etc...)
Je lance le publipostage via Word et mes 500 courriers tombent.
L'idée est d'envoyer par mail aux 500 destinataires leurs fichiers pdf.

Grâce à ton code VBA Syzygy, j'arrive à scindéer en 500 fichiers PDF et il me reste plus qu'à les envoyer par mail (je précise que j'utilise zimbra donc je suis un peu limité question publipostage.... ce n'est  pas moi qui décide mais mon taf...)

Seulement, me retrouver avec 500 fichiers pdf intitulé de 1.pdf, 2.pdf, jusqu'à 500, difficile de retouver mes petits !

Ma question est : "au lieu d'intituler les fichiers 1.pdf, etc.... peut-on les intituler par N° de contrat ?"

Merci d'avance !

Bonne soirée à tous.

Kli

Enregistrer un doc. Word en PDF individuel

5 réponses

Discussions similaires