Red de conocimiento informático - Conocimiento informático - Paginar el documento de Word en N documentos

Paginar el documento de Word en N documentos

200 dividido por 12 equivale aproximadamente a 17, en las páginas 17, 34, 51, 68, 85, 102, 119, 136, 153, 170, 187, etc. Inserte un salto de sección en la página siguiente.

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