¿Cómo dividir un documento de Word en varios documentos?

Si tiene un documento de Word extenso que necesita dividir en varios documentos más pequeños, este tutorial le guiará a través de tres métodos eficaces. Ya sea que prefiera usar VBA para dividirlo según un delimitador específico o por páginas, o bien optar por la funcionalidad optimizada de Kutools para Word, encontrará una solución perfectamente adaptada a sus necesidades.

• Dividir documento de Word por delimitador especificado con VBA
• Dividir documento de Word por título/página/Salto de sección/Salto de página mediante Kutools para Word
• Dividir documento de Word por página con VBA

Dividir documento de Word por delimitador especificado con VBA

En lugar de dividir manualmente un documento, puede usar VBA para dividir un documento de Word mediante un delimitador específico. Siga estos pasos:

1. Pulse Alt + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.
2. Haga clic en Insertar>Módulo, y pegue el siguiente código VBA en la ventana del módulo.

   Sub SplitNotes(delim As String, strFilename As String)
   Dim doc As Document
   Dim arrNotes
   Dim I As Long
   Dim X As Long
   Dim Response As Integer
   arrNotes = Split(ActiveDocument.Range, delim)
   Response = MsgBox("This will split the document into " & UBound(arrNotes) + 1 & " sections. Do you wish to proceed?", 4)
   If Response = 7 Then Exit Sub
   For I = LBound(arrNotes) To UBound(arrNotes)
   If Trim(arrNotes(I)) <> "" Then
   X = X + 1
   Set doc = Documents.Add
   doc.Range = arrNotes(I)
   doc.SaveAs ThisDocument.Path & "\" & strFilename & Format(X, "000")
   doc.Close True
   End If
   Next I
   End Sub
   Sub test()
   'delimiter & filename
   SplitNotes "///", "Notes "
   End Sub

3. Haga clic en el botón Ejecutar o pulse F5 para ejecutar el código VBA.
4. En el cuadro emergente Microsoft Word, confirme haciendo clic en Sí.

   

Dividir documento de Word por título/página/Salto de sección/Salto de página mediante Kutools para Word

Kutools para Word ofrece una forma más cómoda y flexible de dividir un documento que los métodos manuales o mediante VBA. Proporciona múltiples opciones para dividirlo por títulos, páginas, saltos de sección, saltos de página, cada n páginas o rangos de páginas personalizados, permitiéndole adaptar el proceso de división a sus necesidades específicas.

1. Haga clic en KUTOOLS PLUS>Dividirpara activar la función de División.

   

2. En el cuadro de diálogo Dividir documento, configure las siguientes opciones:

   Elija un método de división en el menú desplegable Dividir por. Las opciones disponibles incluyen Títulos 1, salto de página, salto de sección, páginas, cada n páginas o rangos de páginas personalizados. Haga clic en el botón Examinar para seleccionar una carpeta de destino para los documentos divididos. Introduzca una palabra clave como prefijo para los nombres de los nuevos documentos en el campo Prefijo del documento. Consejo: Al hacer clic en el botón Actualizar, podrá previsualizar los nombres de los documentos divididos en el cuadro de Vista previa. Haga clic en Aceptar.

El documento se dividirá según el método especificado y los archivos generados se guardarán en la carpeta designada.

Dividir documento de Word por página con VBA

Si necesita dividir rápidamente un documento de Word en varios documentos, cada uno con una sola página, puede usar una macro VBA para automatizar esta tarea. Siga los pasos que se indican a continuación:

1. Pulse Alt + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.
2. Haga clic en Insertar>Módulo, y luego pegue el siguiente código VBA en la nueva ventana del módulo:

   Sub SplitIntoPages()
   Dim docMultiple As Document
   Dim docSingle As Document
   Dim rngPage As Range
   Dim iCurrentPage As Integer
   Dim iPageCount As Integer
   Dim strNewFileName As String
   Application.ScreenUpdating = False 'Makes the code run faster and reduces screen flicker a bit.
   Set docMultiple = ActiveDocument 'Work on the active document
   Set rngPage = docMultiple.Range 'Instantiate the range object
   iCurrentPage = 1
   'Get the document's page count
   iPageCount = docMultiple.Content.ComputeStatistics(wdStatisticPages)
   Do Until iCurrentPage > iPageCount
       If iCurrentPage = iPageCount Then
           rngPage.End = ActiveDocument.Range.End 'Last page (no next page)
       Else
           'Find the beginning of the next page
           'Must use the Selection object. The Range.Goto method will not work on a page
           Selection.GoTo wdGoToPage, wdGoToAbsolute, iCurrentPage + 1
           'Set the end of the range to the point between the pages
           rngPage.End = Selection.Start
       End If
       rngPage.Copy 'Copy the page into the Windows clipboard
       Set docSingle = Documents.Add 'Create a new document
       docSingle.Range.Paste 'Paste the clipboard contents to the new document
       'Remove any manual page break to prevent a second blank
       docSingle.Range.Find.Execute Findtext:="^m", ReplaceWith:=""
       'Build a new sequentially numbered file name based on the original multi-paged file name and path
       strNewFileName = Replace(docMultiple.FullName, ".doc", "_" & Right$("000" & iCurrentPage, 4) & ".doc")
       docSingle.SaveAs strNewFileName 'Save the new single-paged document
       iCurrentPage = iCurrentPage + 1 'Move to the next page
       docSingle.Close 'Close the new document
       rngPage.Collapse wdCollapseEnd 'Go to the next page
   Loop 'Go to the top of the do loop
   Application.ScreenUpdating = True 'Restore the screen updating
   'Destroy the objects.
   Set docMultiple = Nothing
   Set docSingle = Nothing
   Set rngPage = Nothing
   End Sub

3. Haga clic en el botón Ejecutar o pulse F5 para ejecutar el código VBA.

Artículos relacionados:

Las mejores herramientas de productividad para Office

Kutools para Word- Potencie su experiencia en Word con más de 100funciones extraordinarias

🤖Funcionalidades de KUTOOLS AI: Asistente de IA / Asistente en Tiempo Real / Super Pulir (conservar formato) / Super Traducir (conservar formato) / Redacción con IA / Revisión con IA…

📘Dominio del documento: Dividir páginas, combinar documentos, exportar selecciones en varios formatos (PDF, TXT, DOC, HTML…) y convertir varios documentos a PDF…

✏Edición de contenidos: Buscar y reemplazar en lote en varios archivos / Redimensionar todas las imágenes / Transponer filas y columnas de la tabla / Convertir tabla a texto...

🧹Limpieza sin esfuerzo: Elimine rápidamente espacios adicionales, saltos de sección, cuadros de texto e hipervínculos. Para más herramientas de eliminación, vaya al grupo Eliminar…

➕Inserciones creativas: Inserte separadores de miles, casillas de verificación, botones de opción, códigos QR, códigos de barras o varias imágenes. ¡Descubra más en el grupo Insertar…

🔍Selecciones precisas: Localice exactamente páginas específicas, tablas, formas o párrafos de encabezado. Mejore la navegación con más funciones de selecciónfeatures ......

⭐Mejoras destacadas: Navega a cualquier ubicación / Inserta automáticamente texto repetitivo / Alterna entre documentos de Windows / 11 …herramientas de conversión…

🌍Compatible con 40+ idiomas: Use Kutools en su idioma preferido – compatible con inglés, español, alemán, francés, chino y 40+ más idiomas

 

Descarga gratuita     Comprar ahora     Más información

 

---

Office Tab- Aporta una interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil

• Habilite la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
• Abra y cree varios documentos en nuevas pestañas de la misma ventana, en lugar de en ventanas nuevas.
• ¡Aumente su productividad en un 50 % y ahorre cientos de clics de ratón cada día!

Descarga gratuita     Comprar ahora     Más información

 

---

✨ Kutools for Office – ¡Una instalación, cinco herramientas potentes!

Incluye Office Tab Pro·Kutools para Excel·Kutools para Outlook·Kutools para Word·Kutools for PowerPoint

📦 Obtenga las 5 herramientas en un único conjunto | 🔗 Integración perfecta con Microsoft Office | ⚡ Ahorrar tiempo y aumente su productividad al instante

⬇️ Descargar ahora🎁 Comprar el conjunto completo📖 Más información

Las mejores herramientas de productividad para Office

Kutools para Word- Herramientas 100+ para Word

• 🤖KUTOOLS AI Funcionalidades:Asistente de IA/Asistente en Tiempo Real/Super Pulir/Super Traducir/Redacción AI/Revisión con IA
• 📘Dominio del documento:Dividir páginas/Combinar documentos/Convertir varios documentos a PDF
• ✏Edición de contenidos:Buscar y reemplazar en lote/Redimensionar todas las imágenes
• 🧹Limpieza sin esfuerzo:Eliminar espacios adicionales/Eliminar Salto de sección
• ➕Inserciones creativas:Insertar separadores de miles/Insertar Casilla de Verificación/Crear Código QR
• 🌍Compatible con más de 40 idiomas: ¡Kutools habla tu idioma y es compatible con más de 40 idiomas!

Descarga gratuitaComprar ahoraMás información sobre Kutools