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