En ocasiones nos encontramos con la necesidad de unir varios archivos de Word en uno solo. Con esta macro agilizamos el proceso. Tan solo requiere que los archivos a unir estén en una misma carpeta.
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