Unir varios documentos de word en un solo

Buenas Gente: Esta macro me sirvio de mucha utilidad para unir varios documentos de word en un solo.
La unión se hace por abecedario del nombre del documento.

Sub InsertarFichero()
Dim strFichero As String
Dim strRuta As String
Dim MiRango As Range

strRuta = "H:\Documents and Settings\Nueva carpeta"
'Debes poner la ruta de la carpeta donde tengas los archivos
strFichero = Dir$(strRuta & "\*.doc")
Documents.Add
' Para añadir los ficheros
Do Until strFichero = ""
With Selection
.InsertFile FileName:=(strRuta & "\" & strFichero)
.Collapse wdCollapseEnd
.InsertBreak wdSectionBreakNextPage
' Inserta un salto de sección de página siguiente. Puedes modificarlo a tu gusto
 End With
strFichero = Dir()
Loop

Set MiRango = Nothing

End Sub

Fuente: http://www.fermu.com/es/98
 Saludos Adalberto Montanía