dividir documento word en varios archivos

15/07/2013 - 23:41 por lizsmg29 | Informe spam
¡ 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
 

Preguntas similares