Note: The other languages of the website are Google-translated. Back to English

¿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. ¿Existe alguna forma rápida y sencilla de resolver este trabajo sin copiar y pegar las páginas una por 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 cada 10 on páginas con una característica sorprendente


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 10 on páginas, el siguiente código VBA puede hacerle un favor, haga lo siguiente:

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

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

Código 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, todavía en el Microsoft Visual Basic para aplicaciones ventana, haga clic en Herramientas > Referencias, y en el salido Referencias-Proyecto cuadro de diálogo, comprobar Expresiones regulares de Microsoft VBScript 5.5 opción en el Referencias disponibles cuadro de lista, ver captura de pantalla:

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

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

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


Divida un documento de Word en archivos separados cada 10 on páginas con una característica sorprendente

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 el título 1, el salto de página, el salto de sección y la página.

Consejos:Para aplicar esto Mini Split función, en primer lugar, debe descargar la Kutools for Wordy, a continuación, aplique la función de forma rápida y sencilla.

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

1. Hacer clic Kutools Más > Mini Split, ver captura de pantalla:

2. En el cuadro de diálogo emergente, configure las siguientes operaciones según sus necesidades, vea la captura de pantalla:

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

¡Haga clic para descargar Kutools para Word y una prueba gratuita ahora!


Herramientas de productividad de palabras recomendadas

 

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

  • Las operaciones complicadas y repetidas se pueden realizar un solo procesamiento en segundos.
  • Inserte varias imágenes en carpetas en un documento de Word a la vez.
  • Fusiona y combina varios archivos de Word en carpetas en uno con el orden que desees.
  • Divida el documento actual en documentos separados según el encabezado, 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, etc.
Comentarios (9)
Aún no hay calificaciones. ¡Sé el primero en calificar!
Este comentario fue minimizado por el moderador en el sitio
He estado tratando de dividir un archivo de Word de 166 páginas y da 166 archivos cada uno con 166 páginas.
Este comentario fue minimizado por el moderador en el sitio
Script VBA: divida un documento en archivos separados cada 10 o n páginas no trabajadas
Este comentario fue minimizado por el moderador en el sitio
Hola, sergey,
El código anterior funciona bien en mi documento de Word, ¿qué versión de Word usas?
¿Y qué paso salió mal en su operación?
Este comentario fue minimizado por el moderador en el sitio
El código VBscript hizo que Word fallara. Estaba tratando de dividir un archivo de Word de 32 Mb con muchas páginas, pero parece que Word no puede manejarlo a través de VBscript.
Gracias de cualquier manera
Este comentario fue minimizado por el moderador en el sitio
Hola Studi,
El código de VBA puede bloquearse cuando hay un documento grande, no es estable, por lo que le recomiendo que use nuestra herramienta Kutools for Word, se ha actualizado y admite para resolver esta tarea, puede descargarla y prueba gratis 30 días.
Por favor, intente, ¡gracias!
Este comentario fue minimizado por el moderador en el sitio
Para mí, el VBA crea un solo documento que es una copia del original y eso es todo.
Este comentario fue minimizado por el moderador en el sitio
este código da un error de compilación que muestra que el tipo definido por el usuario no está definido
Este comentario fue minimizado por el moderador en el sitio
cosas buenas. lo usé para dividir con 1 página 1 documento de Word, fue exitoso excepto que cada documento (después de la división), tiene 2 páginas en total, aunque la segunda página siempre está en blanco. 
Este comentario fue minimizado por el moderador en el sitio
¿Existe un software para ayudar a las personas mayores que no tienen conocimientos informáticos suficientes para utilizar las potentes funciones de Word en una computadora pública?

Los documentos de mi mamá están en una memoria USB.
Estoy acostumbrado a las carpetas del mismo tema para
1) versionado
2) capítulo por documento
3) sincronizar con OneDrive
No hay comentarios publicados aquí todavía
Deje sus comentarios
Publicar como invitado
×
Califica esta publicación:
0   Personajes
Ubicaciones sugeridas

Siganos

Copyright © 2009 - www.extendoffice.com. | Reservados todos los derechos. Energizado por ExtendOffice, | Mapa del Sitio
Microsoft y el logotipo de Office son marcas comerciales o marcas comerciales registradas de Microsoft Corporation en los Estados Unidos y / o en otros países.
Protegido por Sectigo SSL