Citar:
No lo tiene pero si la posibilidad de crearlo. Si sabes programacion, no es muy dificil.
Aqui tienes una sequencia de codigos que tienes que terminar y cambiar el lugar donde va a guardar los documentos con 50 paginas.
Código:
Sub delete450()
Dim c As Single
Set c = 450
Public x As Single
ActiveDocument.DeletePages 50, 450
SaveAs50
x = x + 1
OpenDocument "C:\documento500.cdr"
ActiveDocument.DeletePages 1, 50
ActiveDocument.DeletePages 50, 400
SaveAs50
x = x + 1
OpenDocument "C:\documento500.cdr"
End Sub
Sub SaveAs50()
Dim sa As StructSaveAsOptions
Dim d As Document
Set sa = CreateStructSaveAsOptions
With sa
.EmbedICCProfile = True
.EmbedVBAProject = True
.Filter = cdrCDR
.IncludeCMXData = True
.Overwrite = True
.ThumbnailSize = cdr10KColorThumbnail
.Version = cdrCurrentVersion
.Range = cdrAllPages
End With
Set d = ActiveDocument
d.SaveAs "c:\document " + x + ".cdr", sa
d.Close
Next d
End Sub
--------------------------------------------
Gracias Michael Cervantes, mañana mismo en la noche voy a probar....tengo un ligero conocimiento de programacion, y creo que mas o menos si puedo ponerle los datos necesarios y usarlo....
pero una pregunta (que pregunton me he puesto) Para programar estos macros en visual basic, solo se necesita tener conocimientos generales o ademas hay que tener conocimientos especificos de corel draw? Es para saber si cualquier amigo mio que sepa programar visual basic, pero que nunca haya usado corel draw me puede programar macros de tareas sencillas como esta de separar documentos de 500 paginas en varios de 50 paginas.
Gracias de nuevo...
