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 AsRange
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
Filtro
No comments...
Escribir un comentario
Por favor, mantenga el asunto de los mensajes relevantes al tema del artículo.
Los ataques verbales personales serán eliminados.
Por favor, no emplee comentarios para promocionar su sitio web. Este tipo de mensajes serán eliminados
