Copie todos los documentos abiertos de Word de una sola vez

Cuando tenga varios documentos de Word abiertos, es posible que necesite copiarlos a otra carpeta para hacer una copia de seguridad, compartirlos, subirlos a almacenamiento en la nube, transferirlos a otro equipo o adjuntarlos a correos electrónicos. Aunque Word no incluye un comando directo para copiar todos los documentos abiertos de una sola vez, existen varias formas fiables de lograrlo.

En este tutorial aprenderá tres métodos prácticos: guardar manualmente cada documento abierto en una misma carpeta, usar Kutools para Word y copiar todos los documentos abiertos con un solo clic, o emplear una macro de VBA para copiar automáticamente todos los archivos abiertos y guardados a la carpeta que usted elija.

• Método 1: Use Guardar como para guardar cada documento abierto en una carpeta
• Método 2: Copie Todos los Documentos Abiertos con un solo clic usando Kutools para Word
• Método 3: Copie Todos los Documentos Abiertos automáticamente con VBA

Use Guardar como para guardar cada documento abierto en una carpeta

Este método funciona en todas las versiones de Word. Guarde primero todos los documentos abiertos en la misma carpeta; así podrá seleccionar todos los archivos de dicha carpeta y copiarlos juntos o adjuntarlos simultáneamente en un correo electrónico.

Office Tab

Navegación con pestañas para Word, Excel, PowerPoint y más: como en un navegador web, con transición fluida entre documentos en una sola ventana.

Descarga gratuitaMás información

1. En Word, cambie al primer documento que abrió.
2. Haga clic en Archivo>Guardar como, luego seleccione Examinar.

   

3. En la ventana Guardar como, vaya a la carpeta de destino. Asegúrese de que el nombre de la carpeta aparezca en la barra de direcciones y, a continuación, haga clic en Guardar.

   

4. Repita los mismos pasos para cada documento abierto, eligiendo siempre la misma carpeta.
5. Cuando termine, abra esa carpeta en el Explorador de archivos, pulse Ctrl + Apara seleccionar todos los archivos, luego haga clic con el botón derecho y elija Copiar.

   

Todos los documentos seleccionados ya están copiados y listos para pegarse en una nueva ubicación o adjuntarse a un correo electrónico.

Copie Todos los Documentos Abiertos con un solo clic usando Kutools para Word

Si frecuentemente necesita copiar o recopilar varios documentos abiertos, Kutools para Word puede ahorrarle tiempo. Ofrece una función integrada que le permite copiar todos los documentos actualmente abiertos a una carpeta seleccionada con un solo clic.

1. Abra Word y asegúrese de que todos los documentos que desea copiar estén actualmente abiertos y guardados.
2. En la pestaña KUTOOLS PLUSde la Cinta de opciones, haga clic en Más>Copiar Todos los Archivos Abiertos.

   

3. Aparecerá un cuadro de diálogo confirmando que los archivos se han copiado correctamente. Haga clic en Aceptar.

   

Después de hacer clic en Copiar Todos los Archivos Abiertos, los documentos seleccionados se copian al portapapeles. A continuación, puede abrir cualquier carpeta de destino y pulsar Ctrl + V para pegarlos allí o incluirlos directamente en un correo electrónico como archivos adjuntos.

Nota:

Asegúrese de que todos los documentos abiertos estén guardados antes de usar esta función. Si algún documento contiene cambios sin guardar, no se copiará correctamente. Kutools le mostrará los archivos fallidos para que pueda guardarlos e intentarlo de nuevo.

Copie Todos los Documentos Abiertos automáticamente con VBA

Si prefiere un método automático sin usar complementos, puede utilizar una macro de VBA. Esta macro copia todos los documentos abiertos y guardados a una carpeta que usted seleccione. Copia los archivos directamente desde sus ubicaciones originales, por lo que los documentos abiertos permanecen sin cambios.

1. En Word, pulse Alt + F11 para abrir el editor de VBA.
2. Haga clic en Insertar>Módulo.

   

3. Pegue el siguiente código en el módulo.

   Option Explicit
   
   Sub CopyAllOpenDocuments()
   
       Dim doc As Document
       Dim destFolder As String
       Dim src As String, dst As String
       Dim fso As Object
       Dim count As Long
   
       With Application.FileDialog(msoFileDialogFolderPicker)
           If .Show <> -1 Then Exit Sub
           destFolder = .SelectedItems(1)
       End With
   
       If Right(destFolder, 1) <> "\" Then destFolder = destFolder & "\"
   
       Set fso = CreateObject("Scripting.FileSystemObject")
   
       For Each doc In Application.Documents
           If doc.Path <> "" Then
               src = doc.FullName
               dst = destFolder & doc.Name
   
               If LCase$(src) <> LCase$(dst) Then
                   fso.CopyFile src, dst, True
                   count = count + 1
               End If
           End If
       Next doc
   
       MsgBox count & " document(s) copied successfully.", vbInformation, "Kutools for Word"
   
   End Sub

4. Pulse F5 para ejecutar la macro.
5. Aparecerá un cuadro de diálogo para seleccionar la carpeta. Elija la carpeta de destino en la que deben copiarse los documentos abiertos y, a continuación, haga clic en Aceptar.

   

6. Aparecerá un cuadro de diálogo de confirmación que indique cuántos documentos se han copiado correctamente.

   

Todos los documentos abiertos elegibles ya se han copiado en la carpeta seleccionada. Puede abrir dicha carpeta para ver, mover, cargar o adjuntar los archivos copiados según sus necesidades.

¿Qué método debería utilizar?

Conclusión

Si solo necesita hacer esto ocasionalmente y tiene pocos documentos abiertos, guardarlos en una misma carpeta suele ser suficiente. Si lo hace con frecuencia o trabaja con muchos archivos abiertos, Kutools para Word puede Ahorrar tiempo gracias a su enfoque de un solo clic. Para una solución totalmente automatizada sin complementos, VBA es la opción más flexible.

Espero que haya encontrado útil este tutorial. Si desea explorar más consejos y soluciones prácticas para Word, haga clic aquí para consultar nuestra colección completa de tutoriales de Word.