MACRO Concatener des fichiers WORD

Bonjour,

Je ne connais pas grand chose au Macro, je souhaite utiliser la macro ci-dessous afin de concatener des fichiers word. elle fonctionne sauf qu'il me faut juste quelques elements supplémentaires
1. Elle doit explorer les sous repertoire du Lookin
2. Elle doit ajouter au moment de la concatenation au dessus de chaque document copié le Nom du fichier, la Taille (Ko) la Date de modification et le Répertoire (localisation).
C'est possible ? C'est réalisable ?


sub a
Dim i As Integer
With Application.FileSearch
.LookIn = "C:\Documents and Settings\genova\Bureau\Expertise_3\Disque local (E)\Travail"
.FileName = "*.doc"
.Execute
For i = 1 To .FoundFiles.Count
Documents.Open FileName:=.FoundFiles(i)

Selection.WholeStory
Selection.Copy

Documents(2).Activate
Selection.Paste
Documents(1).Activate
ActiveDocument.Close False

Next i

End With
End Sub