Discussion :

[younesssoleil]

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"

[vinc_bilb]

Bonjour,

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

Par exemple:

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