Word Combiner plusieurs documents word en un seul

[Sassybel]

Bonjour,

J'ai 4 documents words de 100 pages chacun ... j'aimerais n'en avoir qu'un seul (pour faire un pdf) mais je dois combiner les pages dans un ordre précis : page 1 doc 1, page 1 doc 2, page 1 doc 3, page 1 doc 4 etc .. Est-ce possible ? J'ai bien trouvé en passant par des PDF et en faisant glisser les pages à la bonne place mais c'est laborieux.

Si quelqu'un a une idée, je suis preneuse
Merci d'avance

 

[kiki29]

Salut, PDFCreator 1.7.3 Insertion x Pages d'un pdf dans un autre Pdf
Voir ici pour une liste ( Liste_Contributions.zip ) permettant à priori de naviguer dans le bazar
Restera à écrire la moulinette ...

 

[kiki29]

Re, l'intitulé "Combiner plusieurs documents word en un seul" est inapproprié et serait à modifier.

je suis parvenu à qqch mais avec Acrobat.

Essais : avec 4 fichiers Pdf de test de 100 pages cela a pris 7s, pour des fichiers Pdf de 400 pages autour de 65s pour générer le Pdf final. A toi de voir en adaptant à ton contexte ( les chemins des fichiers pdf ) si tu as Acrobat.

    .....
    SourceFile1 = ThisWorkbook.Path & "\" & "Test1.pdf"
    SourceFile2 = ThisWorkbook.Path & "\" & "Test4.pdf"
    MergedFile1 = ThisWorkbook.Path & "\" & "Output_Acrobat_01.pdf"
    MergePDF_02 SourceFile1, SourceFile2, MergedFile1, 2

    SourceFile1 = MergedFile1
    SourceFile2 = ThisWorkbook.Path & "\" & "Test3.pdf"
    MergedFile2 = ThisWorkbook.Path & "\" & "Output_Acrobat_02.pdf"
    MergePDF_02 SourceFile1, SourceFile2, MergedFile2, 3

    SourceFile1 = MergedFile2
    SourceFile2 = ThisWorkbook.Path & "\" & "Test2.pdf"
    MergedFile3 = ThisWorkbook.Path & "\" & "Output_Acrobat_03.pdf"
    MergePDF_02 SourceFile1, SourceFile2, MergedFile3, 4
    .....

Private Sub MergePDF_02(SourceFile1 As String, SourceFile2 As String, MergedFile As String, k As Long)
    '.....
    For i = 0 To k * NumPages Step k
        If Part1Document.InsertPages(i, Part2Document, j, 1, 0) = True Then
            Part1Document.Save 1, MergedFile
    '.....
End Sub

 

[kiki29]

Re, une moulinette PDFCreator 1.7.3 permet d'aboutir à ceci :
Moyennant en premier la génération de tous les PDFs dans un dossier ( soit 4x100 pdf ).
Puis la lecture des noms de ces fichiers.
Pour aboutir après un tri à l'utilisation de MergePDFFiles_2 pour générer le PDF final.
La version Acrobat évite ce salmigondis.

 

[kiki29]

Salut, je continue de soliloquer, si le message suivant apparait : "Microsoft Excel attend la fin de l'exécution d'une action OLE d'une autre application"
Voir ici pour une solution.

 

[kiki29]

Re, tjs dans l'attente d'un signe de vie de la part de Sassybel, décidément l'obituaire.

 

[VirginieG]

Bonjour,

As-tu essayé par l'onglet "Insérer" > (texte) "Objet" > "texte d'un fichier" ? (office 365)

Car je viens de faire un test sur 3 fichiers, courts, avec des styles, des mises en forme (gras, italique, souligné, centré, droite) tout a été bien respecté dans le fichier final.

Le principe, ouvrir le 1er fichier dans Word
- se placer tout à la fin (raccourci clavier direct CTRL FIN ou end selon les claviers
- Aller dans l'onglet "Insérer" (ALT S) > (rubrique "texte") "Objet" (lettre B) > "texte d'un fichier" (lettre X)
- Chercher le 2ème fichier (possibilité d'en choisir plusieurs en sélectionnant tous les fichiers tout en maintenant - la touche CTRL enfoncée pendant qu'on sélectionne chaque fichier)
- Bouton "insérer" (ou touche ENTRÉE).

Une fois tout dans le même fichier, enregistrer sous > PDF ou imprimer en PDF.
Tout dépend de ta version de Word mais le principe restera le même.

Bonne soirée.