Como insertar todo el contenido de un word en otro word con macros

estimados,

Lo que necesito es que todo el contenido de los archivos archivos word que selecciono, se inserten en un nuevo archivo word.
Los selecciono desde una lista en excel, en ella están las rutas de los archivos word.

espero me puedan ayudar 

NOTA: seria ideal si se insertaran en el orden de la lista, gracias.

1 Respuesta

Respuesta
1

Tu información debes ponerla como se muestra en la siguiente imagen

En la columna A, los nombres de los archivos

En la celda C2 debes poner el nombre del nuevo archivo

En la columna B, la macro pone el estatus "Copiado" si el archivo fue copiado.

IMPORTANTE!

Los archivos deberán estar en la ruta en donde guardes el archivo de excel con la macro


La macro:

Sub CopiarVariosWord()
'por.Dante Amor
    '
    Application.ScreenUpdating = False
    Set NuevoWord = CreateObject("Word.Application")
        NuevoWord.Visible = True
    Set nuevito = NuevoWord.Documents.Add
    '
    ruta = ThisWorkbook.Path
    For i = 2 To Range("A" & Rows.Count).End(xlUp).Row
        '
        Set DocWord = CreateObject("Word.Application")
            DocWord.Visible = True
        '
        arch = Cells(i, "A")
        Set objdoc = DocWord.Documents.Open(ruta & "\" & arch & ".docx")
            objdoc.Range.Copy
        '
        NuevoWord.Activate
        SendKeys "{ENTER}", True
        NuevoWord.Selection.PasteSpecial link:=True
        Cells(i, "B") = "Copiado"
        '
        objdoc.Close
        DocWord.Quit
        Set DocWord = Nothing
        Set objdoc = Nothing
    Next
    Application.DisplayAlerts = False
    nuevoar = ruta & "\" & Range("C2") & ".docx"
    If Dir(nuevoar) <> "" Then
        Kill nuevoar
    End If
    nuevito.SaveAs Filename:=nuevoar
End Sub

Sigue las Instrucciones para un botón y ejecutar la macro

  1. Abre tu libro de Excel
  2. Para abrir Vba-macros y poder pegar la macro, Presiona Alt + F11
  3. En el menú elige Insertar / Módulo
  4. En el panel del lado derecho copia la macro
  5. Ahora para crear un botón, puedes hacer lo siguiente:
  6. Inserta una imagen en tu libro, elige del menú Insertar / Imagen / Autoformas
  7. Elige una imagen y con el Mouse, dentro de tu hoja, presiona click y arrastra el Mouse para hacer grande la imagen.
  8. Una vez que insertaste la imagen en tu hoja, dale click derecho dentro de la imagen y selecciona: Tamaño y Propiedades. En la ventana que se abre selecciona la pestaña: Propiedades. Desmarca la opción “Imprimir Objeto”. Presiona “Cerrar”
  9. Vuelve a presionar click derecho dentro de la imagen y ahora selecciona: Asignar macro. Selecciona: CopiarVariosWord
  10. Aceptar.
  11. Guarda el archivo de excel habilitado para macros en la ruta en donde tienes los archivos word
  12. Para ejecutarla dale click a la imagen.

Saludos. Dante Amor

Recuerda valorar la respuesta.

Estimado te agradezco por el apoyo en tu respuesta, pero ahora me ha surgido un problema, no se si se pueda solucionar.

1° Lo que pasa que  el archivo creado NO PUEDO pasarlo a otra carpeta o enviarlo por correo porque  al abrirlo sale actualizar vinculo y si pongo si o no igual salen "¡Error! Vínculo no válido." Ó aveces simplemente no se puede abrir el archivo.

2° luego si se abre queda lo siguiente : ( Ver foto de arriba)  así elija si o no en el aviso.

quisiera saber si alguna forma de ese archivo creado desvincularlo o guardarlo de alguna forma para no tener este problema.

Te lo agradeceria enormemente, saludos!

Cambia en la macro esta línea

NuevoWord.Selection.PasteSpecial link:=True

Por esta

NuevoWord.Selection.PasteSpecial link:=False

Prueba nuevamente

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas