AVISO: Las frases de la serie Mentes Criminales ahora se encuentran en:
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.
  1. Abrir el documento donde se desea fusionar todos los documentos.
  2. Ir a la zona del documento donde se desea colocar el documento a combinar con el documento abierto. Pulsar en la zona.
  3. En la barra de herramientas, ir a la pestaña "Insertar".
  4. 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".
  5. En las opciones que aparecen, pulsar en la opción "Texto de archivo ..."
  6. En la ventana "Insertar archivo", buscar el archivo cuyo contenido se desea insertar y hacer docle click sobre el mismo.

7 comentarios :

  1. Grcias me ayudo mucho amigo!

    ResponderEliminar
  2. Gracias, fue de ayuda.

    ResponderEliminar
  3. Yo también probé este codigo y me fue muy bien, encontrado en otra página.

    Cito 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



    ResponderEliminar
    Respuestas
    1. Gracias muy buen truco... se agradece mucho el aporte

      Eliminar
  4. Hola, 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?

    ResponderEliminar
  5. Hola,
    ¿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,

    ResponderEliminar