Ha tényleges összefűzést akarsz, akkor a következő makró kell:

Sub Osszefuz
Set fs = Application.FileSearch
With fs
.LookIn = "C:\doksikonyvtar"
.FileName = "*.doc"
If .Execute > 0 Then
For i = 1 To .FoundFiles.Count
Selection.InsertFile FileName:=.FoundFiles(i), Range:="", _
ConfirmConversions:=False, Link:=False, Attachment:=False

Next i
Else
MsgBox "Nincs Fajl"
End If
End With
End sub