Enlace Corel con Visual Basic

juancarmm
05 de Marzo del 2008
Buenos días a todos, quisiera saber si desde el VB se puede cargar un fichero en Corel y acto seguido exportarlo o guardarlo con otra extensión.
He hecho lo siguiente pero me da errores:

Dim s1 As Shape
Dim impflt As ImportFilter
Dim impopt As StructImportOptions
Dim grp1 As ShapeRange
Dim doc1 As Document
Dim expflt As ExportFilter
Dim expopt As StructExportOptions

ActiveDocument.Pages(1).Activate 'Error de Automatización (Error 440) Documento no encontrado
ActivePage.Layers("Dummy%Layer%Dummy%Layer").Activate 'Error de Automatización (Error 440) Capa fuera de rango
ActiveLayer.Name = "Dummy%Layer%Dummy%Layer" ''Error de Automatización (Error 440) Documento no encontrado
Set impopt = New StructImportOptions
impopt.MaintainLayers = True
Set impflt = ActiveLayer.ImportEx("C:Gráfico1.eps", cdrPSInterpreted, impopt) ''Error de Automatización (Error 440) Documento no encontrado
impflt.Finish 'La variable de objeto o la variable de bloque With no está establecida (Error 91)
Set s1 = ActiveShape
ActiveLayer.Name = "Capa 1" 'Error de Automatización (Error 440) Documento no encontrado
Set grp1 = s1.UngroupEx 'No se encontró el método o el dato miembro (Error 461)
Set doc1 = OpenDocument("C:Gráfico1.eps")
Set expopt = New StructExportOptions
expopt.UseColorProfile = False
Set expflt = doc1.ExportEx("C:Gráfico1.plt", cdrHPGL, cdrAllPages, expopt)
expflt.Finish
doc1.Close

Gracias y un saludo