Bonjour,
Je dois fusionner plusieurs fichiers word qui contiennent chacun un paragraphe et sous paragraphe en A seul fichier avec une mise à jour de la table de numérotation.
Exemple: j'ai 4 fichiers: fichier1.docx, fichier2.docx.... chacun contient un paragraphe exemple
le fichier1 contient : Présentation générale
le fichier2 contient : Démonstration
le fichier3 contient : Préparation
le fichier4 contient: Solution
Mon but est de les fusionner en utilisant vba pour avoir un fichier globale:Proejt.doc qui contient:
1- Présentation générale, 2-Démonstration, 3- Préparation et 4- Solution
Je déjà réussi à fusionner plusieurs fichier avec le code ci-dessous mais je n'arrive pas à intégrer la notion de paragraphe.
Merci pour votre aide.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20 Dim wrdApp As Object Dim wrdDoc1 As Object Dim wrdDoc2 As Object Dim wrdDoc3 As Object Dim Cible As Paragraph Set WordApp = CreateObject("Word.Application") '-- ouvre une session Word WordApp.Visible = True Set wrdDoc1 = WordApp.Documents.Open("C:\Users\Desktop\ch1.docx", ReadOnly:=False) 'ouvrir propagen.doc Set wrdDoc2 = WordApp.Documents.Open("C:\Users\Desktop\ch2.docx", ReadOnly:=False) Set wrdDoc3 = WordApp.Documents.Open("C:\Users\Desktop\proejt.docx", ReadOnly:=False) wrdDoc3.Content.InsertAfter wrdDoc1.Content wrdDoc3.Content.InsertAfter wrdDoc2.Content wrdDoc3.SaveAs "C:\Users\Desktop\Projet.docx" WordApp.Quit MsgBox "Fusion ok"
Partager