- Abrir el documento donde se desea fusionar todos los documentos.
- Ir a la zona del documento donde se desea colocar el documento a combinar con el documento abierto. Pulsar en la zona.
- En la barra de herramientas, ir a la pestaña "Insertar".
- Dentro de esa pestaña, ir a la seción Texto, en la parte derecha, y buscar "Objeto". Pulsar en la flecha que apunta hacia abajo, y que se encuentra a la derecha de "Objeto".
- En las opciones que aparecen, pulsar en la opción "Texto de archivo ..."
- En la ventana "Insertar archivo", buscar el archivo cuyo contenido se desea insertar y hacer docle click sobre el mismo.
AVISO:
Las frases de la serie
Mentes Criminales
ahora se encuentran en:
http://hasmgrupu.blogspot.com/search/label/Mentes%20Criminales
http://hasmgrupu.blogspot.com/search/label/Mentes%20Criminales
domingo, 19 de enero de 2014
Combinar varios documentos de Word en Word 2010
Si se tienen varios archivos de Word y se desea fusionarlos en uno sólo. Simplemente se han de seguir los pasos mostrados a continuación.
Suscribirse a:
Enviar comentarios
(
Atom
)
Grcias me ayudo mucho amigo!
ResponderEliminarGracias, fue de ayuda.
ResponderEliminarYo también probé este codigo y me fue muy bien, encontrado en otra página.
ResponderEliminarCito texto original:
Bueno pues entonces no hay problema, para encabezados y pies de pagina diferentes, mirate el siguiente articulo de Marta PM y agilizas el proceso de copiar y pegar ;) :
http://www.fermu.com/es/articulos/office/32-office/98-macro-para-unir-varios-archivos-de-word
Por si no funciona el enlace, dejo codigo:
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
Gracias muy buen truco... se agradece mucho el aporte
EliminarMil gracias!!!
ResponderEliminarHola, no puedo insertar el documento. Sigo tus instrucciones y cuando se abre la pantalla para buscar el archivo que quiero insertar, el archivo aparece siempre vacio. Puedes ayudarme, por favor?
ResponderEliminarHola,
ResponderEliminar¿A qué te refieres con que el archivo aparece siempre vacío?
- A que la carpeta está vacía y no aparece el archivo a insertar: Puede que el archivo no esté en esa carpeta o que no tenga una extensión de Word, en este caso donde aparece la casilla de nombre del archivo pulsa en el botón de la extensión y elige "Todos los archivos"
- A que el archivo a insertar está vacío y no inserta nada. Si es un archivo de Word correcto, no entiendo que le puede pasar.
Saludos,