:: Corel-FORUM :: WWW.CORELCLUB.ORG ::
http://www.corelforum.corelclub.org/

Alguien sabe alguna forma de exportar cada...
http://www.corelforum.corelclub.org/viewtopic.php?f=4&t=887
Página 1 de 1

Autor:  Carlos M. [Vie, 07 Nov 2008, 02:36 ]
Asunto:  Alguien sabe alguna forma de exportar cada...

Hola a todo el mundo...
este es mi primer mensaje en este foro.

Tengo un documento de Corel Draw que tiene muchas paginas (500) y quisiera saber si hay alguna manera de exportar automaticamente cada pagina en un jpg diferente, para asi no tener que exportar 500 veces cada pagina manualmente. Hay alguna forma de hacer un batch o algun macro o algo asi, no se...algo con la funcion de visual basic o lo que sea.... o Tal vez exportando el documento a otro programa y desde este si exportar automaticamente cada pagina en jpg.....lo que sea...

Muchas gracias.

Autor:  Oliver Lueiza [Vie, 07 Nov 2008, 03:13 ]
Asunto:  Alguien sabe alguna forma de exportar cada...

Hola.

¿Y por que no exportas en pdf? tomando encuneta la cantidad de paginas he de suponer que es una revista o un libro o algo así, en ese caso el pdf seria la mejor opción.

saludos

Autor:  Carlos M. [Vie, 07 Nov 2008, 03:40 ]
Asunto:  Alguien sabe alguna forma de exportar cada...

Citar:
Hola.

¿Y por que no exportas en pdf? tomando encuneta la cantidad de paginas he de suponer que es una revista o un libro o algo así, en ese caso el pdf seria la mejor opción.

saludos
Es que lo necesito en jpg porque lo quiero poner en una pagina web, como si fuera una galeria de fotos......entonces en pdf no me sirve, a menos que de pdf pueda exportar cada pagina en jpg....pero de todas formas gracias....

Autor:  Carlos M. [Vie, 07 Nov 2008, 04:10 ]
Asunto:  Alguien sabe alguna forma de exportar cada...

Ya lo encontre en otro forum....

Aqui pego textualmente la respuesta de quien lo dijo para quien le sirva.....

Abre un documento X, de ahi con la opcion de Visual Basic, ejecutalo, busca el file convert, seleccionas la carpeta el archivo y la extension, de ahi el programa lo hace automaticamente.

aqui les pongo el forum: http://www.forovecindadgrafica.com/show ... hp?t=14807

De todas formas gracias Oliver Lueiza...

Autor:  Oliver Lueiza [Vie, 07 Nov 2008, 05:03 ]
Asunto:  Alguien sabe alguna forma de exportar cada...

Pues de nada Carlos, gracias a ti que ademas encontraste la solución y las has compartido con nosotros..

saludos

Autor:  paiz valdivia [Sab, 08 Nov 2008, 03:54 ]
Asunto:  Alguien sabe alguna forma de exportar cada...

hace tiempo hablamos de lo mismo existe un macro que activas para poder exportar jpg multipagina.
hecho por Macromonster, aunque me llama mucho la atencion un documento de 500 paginas..!!! eso es un riesgo enorme que harás cuando el archivo se dañe?

Autor:  erick goñi [Lun, 10 Nov 2008, 18:14 ]
Asunto:  Alguien sabe alguna forma de exportar cada...

muy bueno el aporte respecto al jpg

Autor:  Carlos M. [Jue, 13 Nov 2008, 13:39 ]
Asunto:  Alguien sabe alguna forma de exportar cada...

Realmente estoy conciente que no debi de hacer un documento de tantas paginas, pero para cuidarme por si se daña, tengo como 5 backups del documento por si se daña.....algun dia que tenga tiempo voy a ver si lo separo en varios documentos.....

jaja...hablando de macros automaticos, una pregunta..... alguien sabe si Corel Draw tiene alguna opcion que me deje exportar mi documento en varios archivos e corel de 50 paginas cada uno? porque de lo contrario tendria que hacerlo manual y me va a cojer un tiempo.....

Autor:  Michael Cervantes [Vie, 14 Nov 2008, 05:05 ]
Asunto:  Alguien sabe alguna forma de exportar cada...

Citar:
jaja...hablando de macros automaticos, una pregunta..... alguien sabe si Corel Draw tiene alguna opcion que me deje exportar mi documento en varios archivos e corel de 50 paginas cada uno? porque de lo contrario tendria que hacerlo manual y me va a cojer un tiempo.....
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

Autor:  Carlos M. [Vie, 14 Nov 2008, 07:31 ]
Asunto:  Alguien sabe alguna forma de exportar cada...

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...

Página 1 de 1 Todos los horarios son UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/