KutoolsforOffice — Una solución, cinco potentes herramientas.Lograr más con menos esfuerzo.Venta de marzo: 20 % de descuento

¿Cómo dividir un documento de Word en archivos independientes cada 5 o n páginas?

AutorXiaoyang Fecha de modificación

Al trabajar con documentos extensos de Word, es posible que necesites dividirlos en archivos más pequeños e independientes para facilitar su manejo, edición o compartirlos con mayor comodidad. Dividir el documento cada 5, 10 o un número específico de páginas puede ser una solución práctica para gestionar contenido extenso de forma más eficiente.

Copiar y pegar páginas manualmente, una a una, consume mucho tiempo y resulta ineficaz. En este tutorial, te presentamos métodos rápidos y sencillos para dividir un documento de Word en archivos independientes cada *n* páginas:

Divida un documento de Word en archivos independientes Cada n páginas con código VBA

Divida un documento de Word en archivos independientes Cada n páginas con una función increíble

Divida un documento de Word en archivos independientes Cada n páginas con código VBA

Para dividir un documento grande en archivos independientes según cada n páginas, el siguiente código VBA puede ayudarle. Siga estos pasos:

  1. Mantenga pulsadas las teclas ALT + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.
  2. Haga clic en Insertar>Módulo, y copie y pegue el siguiente código en el módulo en blanco:
    3. Sub DocumentSplitter()
    Dim xDoc As Document, xNewDoc As Document
    Dim xSplit As String, xCount As Long, xLast As Long
    Dim xRngSplit As Range, xDocName As String, xFileExt As String
    Dim xRegEx As RegExp
    Dim xPageCount As Integer
    Dim xShell As Object, xFolder As Object, xFolderItem As Object
    Dim xFilePath As String
    On Error Resume Next
    Set xDoc = Application.ActiveDocument
    Set xShell = CreateObject("Shell.Application")
    Set xFolder = xShell.BrowseforFolder(0, "Select a Folder:", 0, 0)
    If TypeName(xFolder) = "Nothing" Then Exit Sub
    Set xFolderItem = xFolder.Self
    xFilePath = xFolderItem.Path & "\"
    Application.ScreenUpdating = False
    Set xNewDoc = Documents.Add(Visible:=False)
    xDoc.Content.WholeStory
    xDoc.Content.Copy
    xNewDoc.Content.PasteAndFormat wdFormatOriginalFormatting
    With xNewDoc
        xPageCount = .ActiveWindow.Panes(1).Pages.Count
L1:     xSplit = InputBox("The document contains " & xPageCount & " pages." & _
                 vbCrLf & vbCrLf & "Please enter the number of pages per split:", "Kutools for Word", xSplit)
        If Len(Trim(xSplit)) = 0 Then Exit Sub
        Set xRegEx = New RegExp
        With xRegEx
            .MultiLine = False
            .Global = True
            .IgnoreCase = True
            .Pattern = "[^0-9]"
        End With
        If xRegEx.Test(xSplit) = True Then
            MsgBox "Please enter a valid page number:", vbInformation, "Kutools for Word"
            Exit Sub
        End If
        If VBA.Int(xSplit) >= xPageCount Then
            MsgBox "The entered number exceeds the total page count of the document." & vbCrLf & "Please enter a valid number.", vbInformation, "Kutools for Word"
            GoTo L1
        End If
        xDocName = xDoc. Name
        xFileExt = VBA.Right(xDocName, Len(xDocName) - InStrRev(xDocName, ".") + 1)
        xDocName = Left(xDocName, InStrRev(xDocName, ".") - 1) & "_"
        xFilePath = xFilePath & xDocName
        For xCount = 0 To Int(xPageCount / xSplit)
            xPageCount = .ActiveWindow.Panes(1).Pages.Count
            If xPageCount > xSplit Then
                xLast = xSplit
            Else
                xLast = xPageCount
            End If
            Set xRngSplit = .GoTo(What:=wdGoToPage, Name:=xLast)
            Set xRngSplit = xRngSplit.GoTo(What:=wdGoToBookmark, Name:="\page")
            xRngSplit.Start = .Range.Start
            xRngSplit.Cut
            Documents.Add
            Selection.Paste
            ActiveDocument.SaveAs FileName:=xFilePath & xCount + 1 & xFileExt, AddToRecentFiles:=False
            ActiveWindow.Close
        Next xCount
        Set xRngSplit = Nothing
        xNewDoc.Close wdDoNotSaveChanges
        Set xNewDoc = Nothing
    End With
    Application.ScreenUpdating = True
End Sub
  3. Después de pegar el código, en la ventana de Microsoft Visual Basic para Aplicaciones, haga clic en Herramientas > Referencias. En el cuadro de diálogo Referencias: Proyecto, active la opción Microsoft VBScript Regular Expressions 5,5 en la lista de Referencias disponibles. Consulte las capturas de pantalla:
    Ventana de VBA con Herramientas > Referencias seleccionadoFlechaMicrosoft VBScript Regular Expressions 5.5 marcado en el cuadro de diálogo Referencias-Proyecto
  4. Haga clic en Aceptar y, a continuación, pulse F5 para ejecutar el código.
  5. Aparecerá un cuadro de diálogo Examinar carpeta. Seleccione la carpeta en la que desea guardar los archivos divididos y haga clic en Aceptar.

    6. Cuadro de diálogo Examinar carpeta

  6. Aparecerá otro mensaje solicitando el número de páginas en que desea dividir el documento. Introduzca el número deseado y haga clic en Aceptar.

    7. Cuadro de diálogo para introducir el número de página en el que dividir

  7. El documento se dividirá en archivos independientes cada n páginas. Diríjase a la carpeta especificada para consultar los resultados.

    8. El documento se divide en archivos independientes cada N páginas

Divida un documento de Word en archivos independientes Cada n páginas con una función increíble

Kutools para Word ofrece una potente función de Dividir que le permite dividir rápidamente un documento grande de Word en varios archivos independientes según el encabezado 1, salto de página, salto de sección o número de páginas. ¡Esta función simplifica lo que de otro modo sería un proceso manual y tedioso!

Kutools para Word

Kutools para Word le ayuda a gestionar las tareas diarias con documentos más rápido gracias a herramientas prácticas integradas directamente en Microsoft Word: sin programación ni configuración compleja.

  • Redacción, corrección, traducción y resumen con IA
  • Buscar y reemplazar en lote en todos los documentos
  • Combina y divide documentos de Word fácilmente
  • Conversión masiva entre Word y PDF
DescargarMás información
  1. Haga clic en KUTOOLS PLUS>Dividir.

    Botón Dividir en la pestaña Kutools de la cinta de opciones

  2. En el cuadro de diálogo que aparece, configure las siguientes opciones según sea necesario:
    1. Seleccione la opción Cada n páginas del menú Dividir por.
    2. Especifique el valor n en el cuadro de entrada.
    3. Elija un área de guardado.
    4. Especifique un prefijo para los documentos divididos.

      Cuadro de diálogo Dividir documento

  3. Una vez completada la configuración, haga clic en Aceptar. El documento se dividirá en varios archivos según la opción seleccionada (por ejemplo, cada 7 páginas).El documento se divide en archivos independientes cada N páginas

Utilizar la función Dividir en Kutools para Word hace que dividir documentos grandes en archivos más pequeños y manejables sea sencillo y eficiente.

¿Busca una forma más rápida de gestionar tareas similares en Word? Pruebe Kutools para Word y simplifique su trabajo diario.

DescargarMás información

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

Kutools for Word pestañas en la cinta de opciones
 
 

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!

✨ 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

Las mejores herramientas de productividad para Office

Kutools para Word- Herramientas 100+ para Word

Descarga gratuitaComprar ahoraMás información sobre Kutools