¿Cómo dividir un documento de Word en archivos separados cada 5 o n páginas?
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:
- Mantén presionado ALT + F11 para abrir la ventana Microsoft Visual Basic for Applications.
- Haz clic en Insertar > Módulo, y copia y pega el siguiente código en el módulo en blanco:
- 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:
- Haz clic en Aceptar, luego presiona F5 para ejecutar el código.
- Aparecerá un cuadro de diálogo Examinar carpeta. Selecciona la carpeta donde deseas guardar los archivos divididos y haz clic en Aceptar.
- 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.
- El documento se dividirá en archivos separados cada N páginas. Ve a la carpeta especificada para ver los resultados.
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
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.
- Haz clic en Kutools Plus > Dividir.
- En el cuadro de diálogo que aparece, configura las siguientes opciones según sea necesario:
- Selecciona la opción Cada n páginas del menú Dividir por.
- Especifica el valor de n en el cuadro de entrada.
- Elige una ubicación para guardar.
- Especifica un prefijo para los documentos divididos.
- 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).
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.
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 (Conservar Formato) / Super Traducir (Conservar Formato) / Redacción AI / Revisión con IA...
📘 Dominio del Documento: Dividir páginas / Combinar documentos / Exportar selección en varios formatos (PDF/TXT/DOC/HTML...) / Convertir en lote a PDF...
✏ Edición de Contenidos: Buscar y reemplazar en lote en varios archivos / Redimensionar todas las imágenes / Transponer filas y columnas de tablas / 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, ve al grupo Eliminar...
➕ Inserciones creativas: Insertar separadores de miles / casillas de verificación / botones de opción / Código QR / Código de Barras / múltiples imágenes / Descubre más en el grupo Insertar...
🔍 Selecciones precisas: Localiza 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 / alterna entre ventanas de documento /11 herramientas de conversión...
🌍 Compatible con más de40 idiomas: Utiliza Kutools en tu idioma preferido: admite Inglés, Español, Alemán, Francés, Chino y más de40 idiomas.
Las mejores herramientas de productividad para Office
Kutools para Word: más de 100 herramientas para Word
- 🤖 Funciones de IA de Kutools: 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 en lote a PDF
- ✏ Edición de Contenidos: Buscar y reemplazar en lote / Redimensionar todas las imágenes
- 🧹 Limpieza sin esfuerzo: Eliminar Espacios Extras / Eliminar saltos de sección
- ➕ Inserciones creativas: Insertar separadores de miles / Insertar casillas de verificación / Crear Códigos QR
- 🌍 Compatible con más de40 idiomas: ¡Kutools habla tu idioma! Se admiten más de40 idiomas.