Paginar el documento de Word en N documentos
Abra el documento, abra el editor VB, pegue el siguiente código en el editor, ejecute F5:
Sub BreakOnSection()
'Se utiliza para configurar el botón Criterios para mover capítulos dentro del documento.
Application.Browser.Target = wdBrowseSection
'El documento de combinación de correspondencia termina con un salto de sección en la página siguiente.
'Resta 1 del recuento de capítulos para detener los mensajes de error.
For i = 1 To ((ActiveDocument.Sections.Count) - 1)
'Selecciona y copia el texto del capítulo al portapapeles
ActiveDocument.Bookmarks ( "\Section").Range.Copy
'Crea un nuevo documento y pega texto desde el portapapeles.
Documentos.Añadir
Selección.Pegar
'Elimina el carácter separador copiado al final de la sección, si lo hubiera.
Unidad Selection.MoveUp:=wdLine, Count.SaveAs FileName:="test_" & DocNum & ".doc"
ActiveDocument.Close
' Will Seleccione para pasar a la siguiente sección en Siguiente
Application.Browser.Next
Siguiente i
ActiveDocument.Close
savechanges:= wdDoNotSaveChanges
End Sub