Consejo: Otros idiomas son traducidos por Google. Puedes visitar el English versión de este enlace.
Iniciar sesión
x
or
x
x
Suscríbete
x

or

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

Si tiene un documento de Word grande que contiene cientos de páginas, y ahora, le gustaría dividir este documento en archivos separados cada 10 o n páginas. ¿Hay alguna forma rápida y fácil de resolver este trabajo sin copiar y pegar las páginas una a una?

Divida un documento de Word en archivos separados cada 10 o n páginas con código VBA

Divida un documento de Word en archivos separados en cada página de 1 con Kutools para Word


Divida un documento de Word en archivos separados en función de cada página:

Con Kutools for Word's Mini Split función, puede dividir rápidamente un documento de Word grande en varios archivos separados según Heading1, salto de página, salto de sección y página.

doc split word cada n páginas 9

Kutools for Word: con más de 100 complementos de Word prácticos, de prueba sin límite en días 60. Haga clic para descargar y prueba gratuita ahora!


Divida un documento de Word en archivos separados cada 10 o n páginas con código VBA

Para dividir un documento grande en archivos separados basados ​​en cada página 10 o n, el siguiente código VBA puede hacerte un favor, haz lo siguiente:

1. Mantenga presionado el ALT + F11 teclas para abrir el Microsoft Visual Basic para aplicaciones ventana.

2. Y luego, haz clic recuadro > Módulo, copie y pegue el código siguiente en el módulo en blanco abierto:

Código de VBA: divida un documento en archivos separados cada 10 o n páginas:

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 page count you want to 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 the page number:", vbInformation, "Kutools for Word"
            Exit Sub
        End If
        If VBA.Int(xSplit) >= xPageCount Then
            MsgBox "The number is greater than the document number." & vbCrLf & "Please re-enter", 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 anterior, aún en el Microsoft Visual Basic para aplicaciones ventana, por favor haga clic Herramientas > Referenciasy en el estallido Referencias-Proyecto cuadro de diálogo, verificar Microsoft VBScript Regular Expressions 5.5 opción en el Referencias disponibles cuadro de lista, ver captura de pantalla:

doc split word cada n páginas 1

4. Luego haga clic OK botón, y luego presione F5 clave para ejecutar este código, y una Busca por carpetas cuadro de diálogo, seleccione una carpeta en la que desea colocar los archivos divididos, vea la captura de pantalla:

doc split word cada n páginas 2

5. Luego haga clic OK y se abre otro cuadro de aviso para recordarle que ingrese el número de conteo de página en el que desea dividir, vea la captura de pantalla:

doc split word cada n páginas 3

6. Y luego haz clic OK botón, el documento de Word activo se ha dividido en archivos separados en cada página 10, puede ir a la carpeta especificada para ver los resultados:

doc split word cada n páginas 4


Divida un documento de Word en archivos separados en cada página de 1 con Kutools para Word

Kutools for Word incluye una característica poderosa Mini Split función, con esta utilidad, puede dividir rápidamente un documento de Word grande en varios archivos separados según Heading1, salto de página, salto de sección y página.

Kutools for Word : con más de 100 complementos de Word prácticos, gratis para probar sin limitaciones en días 60.

Después de instalar Kutools for Word, haz lo siguiente:

1. Hacer clic Empresa > Mini Split, mira la captura de pantalla:

doc split word cada n páginas 5

2. En el estallado Documento dividido cuadro de diálogo, haga clic en doc split word cada n páginas 7 para seleccionar una carpeta para poner los archivos divididos, y luego elegir Página del Dividir por lista desplegable, ver captura de pantalla:

doc split word cada n páginas 6

3. Después de finalizar la configuración, haga clic OK, y todo el documento se dividirá en varios archivos basados ​​en cada página, vea la captura de pantalla:

doc split word cada n páginas 8

¡Haz clic para descargar Kutools for Word y prueba gratuita ahora!




Herramientas recomendadas de productividad de palabras

Kutools para Word: más que las funciones avanzadas de 100 para Microsoft Word, ahorre su tiempo de 50

  • Las operaciones complicadas y repetidas se pueden realizar una sola vez en segundos.
  • Inserte varias imágenes a través de carpetas en el documento de Word a la vez.
  • Combine y combine varios archivos de Word en carpetas en uno con su orden deseado.
  • Divida el documento actual en documentos separados según el encabezado 1, el salto de sección u otros criterios.
  • Convierta archivos entre Doc y Docx, Docx y PDF, colección de herramientas para conversiones y selección comunes, y así...
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Mike · 2 months ago
    For me, the VBA creates a single document that is a copy of the original and that's it.
  • To post as a guest, your comment is unpublished.
    Studia · 2 months ago
    The VBscript code made Word crash. I was trying to split a 32Mb Word file with many pages but it seems Word can't handle it through VBscript.
    Thanks anyway
    • To post as a guest, your comment is unpublished.
      skyyang · 2 months ago
      Hello, Studia,
      The VBA code may crash when there is a large document, it is not stable, so I recommend you use our Kutools for Word tool, it has updated, and support to solve this task, you can download it and free trial 30 day.
      Please try, thank you!
  • To post as a guest, your comment is unpublished.
    Sergey · 4 months ago
    VBA Script: Split a document into separate files every 10 or n pages not worked
    • To post as a guest, your comment is unpublished.
      skyyang · 3 months ago
      Hello, Sergey,
      The above code works well in my Word document, which Word version do you use?
      And which step went wrong in your operation?
  • To post as a guest, your comment is unpublished.
    Lena · 5 months ago
    i have been trying to split a word file of 166 pages and it gives 166 files each with 166 pages?