'nécéssite d'activer la référence:
'Microsoft Word xx.x Object Library
Dim WordApp As Word.Application
Dim WordDoc1 As Word.Document, WordDoc2 As Word.Document
'les documents Word sont supposés fermés avant
'le lancement de la macro.
'creation session Word
Set WordApp = CreateObject("Word.Application")
'Mettre False pour masquer Word pendant l'opération
WordApp.Visible = True
'ouverture du fichier Word
Set WordDoc1 = WordApp.Documents.Open("C:\document synthese.doc")
Set WordDoc2 = WordApp.Documents.Open("\document source.doc")
'copie
WordDoc2.Content.Copy
With WordDoc1.Content
'derniere ligne du document de synthese
.Collapse Direction:=wdCollapseEnd
'insere un saut de page
'.InsertBreak Type:=wdSectionBreakNextPage '
.Paste 'collage
End With
'referme le document source
WordDoc2.Close
'ferme le document de synthese et l'application Word
'WordDoc1.Close True
'WordApp.Quit
Application.CutCopyMode = False
