separar un archivo word en varios archivos

Lo mas simple es grabar el original tantas veces como pedazos desees. Luego
editas borrando las paginas que van en los otros.
Al final tendras varios archivos con partes del original que sera el total
del original. Hacer esto automatico tendrias que dejar marcas donde cortar.
Es mas trabajo que simplemente borrar. Por ejemplo, de 100 paginas, partirlo
en tres (siempre y cuando la pagina sea conveniente de cortar, borras en el
1 de la 34 a la 100, en el 2 de la 1 a la 33 y de la 67 a la 100 y en el 3ro
de la 1 a la 66. Tendras tres archivos con las partes del documento.

Victor Delgadillo MS-MVP Access 2002-2006
Miami, Florida



Mensajes a los grupos de noticas -- asi todos nos beneficiamos
Responde a este mensaje si te ha servido o no el consejo...

¿Quieres saber que es un MVP?
http://mvp.support.microsoft.com/


"sergioo" wrote in message
news:

se necesita separar un archivo word en varios archivos word o html, segun
un
esquema creado con facilidad, o tal vez algun macro que haga lo mismo
despues
de asignar limites a las partes a dividirse, si alguien tiene la respuesta
favor enviemela le agradecere un monton y sere grato a ello.

Yo utilice este macro, espero que te sirva... ahora espero que alguien me
pueda ayudar, y me diga como hacer, para tomar un dato del documento y que
cada macro se documento se grabe con ese nombre.

Sub Macro1()
'
' Macro1 Macro
' Macro grabada el 26/10/2006 por B2B
'
Selection.HomeKey Unit:=wdLine, Extend:=wdExtend
Selection.Copy
ActiveDocument.SaveAs FileName:="NOMBRE.doc",
FileFormat:=wdFormatDocument _
, LockComments:=False, Password:="", AddToRecentFiles:=True, _
WritePassword:="", ReadOnlyRecommended:=False,
EmbedTrueTypeFonts:=False, _
SaveNativePictureFormat:=False, SaveFormsData:=False,
SaveAsAOCELetter:= _
False
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