VBA Word fusion

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:

---

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"

---

Bonjour,

Le paragraphe dans Word est un objet, et donc vous pouvez (souhaitable) le traiter tel quel ....

Par exemple:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

Sub Extract_WordPar(WordDC As Word.Document) 'Extract the different paragraphs from a Word Document   Dim WordPar As Word.Paragraph, WordTabl As Word.Table, WordCl As Word.Cell Dim WordElemCntL As Long, FoundTagB As Boolean, WordElemCurL As Long, WorParTotL As Long, ProgIndL(1 To 2) As Single     ' Init On Error GoTo Err_Extract_WordTags WorParTotL = WordDC.Paragraphs.Count: WordElemCurL = 0: RecCntI = 0     ' Parse all the paragraphs except tables   For Each WordPar In WordDC.Paragraphs   WordElemCurL = WordElemCurL + 1: ProgIndL(1) = WordElemCurL / WorParTotL   'Paragraph only, not tables If WordPar.Range.Tables.Count = 0 Then   With WordPar ' Do something

---

Je crois qu'il y a aussi une fonction merge dans le VBA word Document.Merge Name:="Fichier à merger"