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"