Skip to main content

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

Author: Xiaoyang Last Modified: 2025-06-04

Al trabajar con documentos grandes de Word, es posible que necesites dividir el documento en archivos más pequeños y separados para facilitar su manejo, compartirlos o editarlos. Dividir un 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 manera más eficiente.

Copiar y pegar manualmente página por página es un proceso que consume mucho tiempo e ineficiente. En este tutorial, presentaremos métodos rápidos y fáciles para dividir un documento de Word en archivos separados cada N páginas:

Dividir un documento de Word en archivos separados cada N páginas con código VBA

Dividir un documento de Word en archivos separados cada N páginas con una función sorprendente


Dividir un documento de Word en archivos separados cada N páginas con código VBA

Para dividir un documento grande en archivos separados basados en cada N páginas, el siguiente código VBA te puede ayudar. Sigue estos pasos:

  1. Mantén presionado ALT + F11 para abrir la ventana Microsoft Visual Basic for Applications.
  2. Haz clic en Insertar > Módulo, y copia y pega 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
  4. Después de pegar el código, todavía en la Microsoft Visual Basic for Applications ventana, haz clic en Herramientas > Referencias. En el Referencias - Proyecto cuadro de diálogo, marca la opción Microsoft VBScript Regular Expressions 5.5 de la lista Referencias disponibles Ver capturas de pantalla:
    VBA window with Tools > References selected Arrow Microsoft VBScript Regular Expressions 5.5 checked in the References-Project dialog box
  5. Haz clic en Aceptar, luego presiona F5 para ejecutar el código.
  6. Aparecerá un cuadro de diálogo Examinar carpeta. Selecciona la carpeta donde deseas guardar los archivos divididos y haz clic en Aceptar.
  7. Browse For Folder dialog box

  8. Aparecerá otro mensaje preguntando el número de páginas por las que deseas dividir. Ingresa el número deseado de páginas y haz clic en Aceptar.
  9. Dialog box for entering the page number to split based on

  10. El documento se dividirá en archivos separados cada N páginas. Ve a la carpeta especificada para ver los resultados.
  11. The document is split into separate files every N pages


Dividir un documento de Word en archivos separados cada N páginas con una función sorprendente

Kutools for Word proporciona una poderosa función Dividir que te permite dividir rápidamente un documento grande de Word en varios archivos separados basados en Encabezado 1, saltos de página, saltos de sección o páginas. Esta función simplifica lo que de otro modo sería un proceso manual tedioso.

Kutools para Word,equipado con inteligencia artificial 🤖, ofrece más de 100 funciones prácticas para simplificar tus tareas.
  1. Haz clic en Kutools Plus > Dividir.

    Split button on the Kutools tab on the ribbon

  2. En el cuadro de diálogo que aparece, configura las siguientes opciones según sea necesario:
    1. Selecciona la opción Cada n páginas del menú Dividir por.
    2. Especifica el valor de n en el cuadro de entrada.
    3. Elige una ubicación para guardar.
    4. Especifica un prefijo para los documentos divididos.

      Split Document dialog box

  3. Después de completar la configuración, haz clic en Aceptar. El documento se dividirá en varios archivos basados en la opción seleccionada (por ejemplo, cada 7 páginas).

    The document is split into separate files every N pages

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

Kutools para Word es el complemento definitivo para Word que agiliza tu trabajo y potencia tus habilidades de procesamiento de documentos. ¡Consíguelo ahora!

Las mejores herramientas de productividad para Office

Kutools para Word - ¡Mejora tu experiencia en Word con más de 100 funciones excepcionales!

🤖 Funciones de IA de Kutools: Asistente de IA / Asistente en Tiempo Real / Super Pulir (Mantener formato) / Super Traducir (Mantener formato) / Redacción AI / Revisión con IA...

📘 Dominio de Documentos: Dividir páginas / Combinar documentos / Exportar selección en varios formatos (PDF/TXT/DOC/HTML...) / Convertir en lote a PDF...

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

🧹 Limpieza sin esfuerzo: Elimina espacios extras / saltos de sección / cuadros de texto / hipervínculos / Para más herramientas de eliminación, visita el grupo Eliminar...

Inserciones creativas: Insertar separadores de miles / Casillas de verificación / Botones de opción / Código QR / Código de Barras / Varias imágenes / Descubre más en el grupo Insertar...

🔍 Selecciones precisas: Selecciona páginas específicas / Tablas / Formas / Párrafos de Encabezado / Mejora la navegación con más funciones de Seleccionar...

Mejoras destacadas: Navega a cualquier ubicación / Inserta automáticamente texto repetitivo / Cambia entre ventanas de documentos /11 herramientas de conversión...

Kutools and Kutools Plus tabs on the Word Ribbon
👉 ¿Quieres probar estas funciones? ¡Descarga Kutools para Word ahora! 🚀
 

Las mejores herramientas de productividad para Office

Kutools para Word - ¡Más de 100 herramientas para Word!