Word Combiner plusieurs documents word en un seul

Sassybel · 19 Août 2021

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 · 19 Août 2021

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 · 23 Août 2021

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.

VB:

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

VB:

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 · 8 Septembre 2021

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 · 30 Septembre 2021

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 · 18 Février 2022

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

VirginieG · 3 Avril 2022

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.

Word Combiner plusieurs documents word en un seul

Sassybel

XLDnaute Nouveau

kiki29

XLDnaute Barbatruc

kiki29

XLDnaute Barbatruc

Pièces jointes

kiki29

XLDnaute Barbatruc

Pièces jointes

kiki29

XLDnaute Barbatruc

Pièces jointes

kiki29

XLDnaute Barbatruc

VirginieG

XLDnaute Nouveau

Discussions similaires