dividir documento word en varios archivos

[lizsmg29]

¡ Hola !
Necesito dividir un documento de 72 hojas en 72 archivos diferentes, pero la
macro que estoy utilizando me divide cada hooja del archivo original en 3 hojas
y necesito que quede solamente en una. la macro que estoy utilizando es esta:
Sub BreakOnPage()
' Used to set criteria for moving through the document by page.
Application.Browser.Target = wdBrowsePage

For i = 1 To ActiveDocument.BuiltInDocumentProperties("Number of
Pages")

'Select and copy the text to the clipboard.
ActiveDocument.Bookmarks("page").Range.Copy

' Open new document to paste the content of the clipboard into.
Documents.Add
Selection.Paste
' Removes the break that is copied at the end of the page, if any.
Selection.TypeBackspace
ChangeFileOpenDirectory "C:"
DocNum = DocNum + 1
ActiveDocument.SaveAs FileName:="test_" & DocNum &
".doc"
ActiveDocument.Close

' Move the selection to the next page in the document.
Application.Browser.Next
Next i
ActiveDocument.Close savechanges:=wdDoNotSaveChanges
End Sub


Agradezco su ayuda. Si deprotno conocen otra macro o saben como solucionar mi
problema

[hercul...@gmail.com]

Tuve casi el mismo problema, aunque de macro se muy poco, lo que si me di cuenta es que hay que considerar el formato de la hoja, los margenes deben ser identicos al original sino, no copia igual los dibujos, encabezados, pie de pagina y sellos de agua, no se como hacer esa macro pero quienes saben sera de mucha ayuda. El problema no es la macro.

[victor.j....@gmail.com]

Hola Amigos ya hoy es Miercoles 13_09_2017. Y aunque ya han pasado algunos años, me tope con esta misma incognita y encontre en una portal que realizo este procedimiento exactamente como lo queria.

A continuacion los pasos:

1º Create una carpeta y en ella pon el documento que quieras separar.
(puedes crearte una copia del documento para probrar este codigo)

2º En ese documento en el editor de Visual Basic, inserta un modulo y
copia y pega el codigo que pondre abajo.

3º Cuando ejecutes el codigo ¡¡¡¡¡OJO es imprencisdible que el curso
este obligatoriamente al inicio del docuemnto !!!! <<<<<<

4º Inserta Numero de pagina Tambien imprescindible (si no deseas ver el
numero de pagina ponlo en color blanco pero sin numero de pagina no te
funcionara el codigo :-(

5º Si tu documento tiene 50 paginas >>>> añade una mas en blanco
(puesto que asi quedara con mas precision el codigo)

6º En el codigo solo tendras que cambiar la ruta de tu Carpeta veras
que yo he puesto esta:

ChangeFileOpenDirectory _
"C:\Documents and Settings\usuario\Escritorio\Mi Carpeta\"

Tu cambiala por tu ruta <<< ¡Cuidado con ponerla exacta y tener [ \ ]
al final de esa ruta !!! >>>

'

Sub Guardar_hojas_Independientes_Word()

'Macro modificada By Monica de un Codigo Original _
por Doug Robbins

Dim Contador As String



Selection.HomeKey Unit:=wdStory


Paginas = ActiveDocument.BuiltInDocumentProperties(wdPropertyPages)


Contador = 0


While Contador < Paginas


Contador = Contador + 1


NombreDoc = "Pagina_" & Format(Contador)

On Error Resume Next

ActiveDocument.Bookmarks("\Page").Range.Cut


Documents.Add


Selection.Paste
Selection.TypeBackspace

ChangeFileOpenDirectory _
"C:\Documents and Settings\usuario\Escritorio\Mi Carpeta\"

ActiveDocument.SaveAs FileName:=NombreDoc, _
FileFormat:=wdFormatDocument, _
AddToRecentFiles:=True


ActiveWindow.Close

Wend

If Not Err.Number = 0 Then
MsgBox " Finalizado, ¡¡¡OK!!! :-) "
Exit Sub


End If
On Error GoTo 0

End Sub

-------------------------------

Espero te ayude o ayude a otros que anden buscando en la web este tipo de aportes.

Bendiciones.