puedes bajar algunos macros desde aqui:
http://recentfiles.netfirms.com/
como por ejemplo:
Save old version (keep CDR file's version)
http://recentfiles.netfirms.com/misc/wx ... ersion.exe
FileConverter modification (mass-resave CDR files to another version + PDF export)
http://recentfiles.netfirms.com/misc/wx ... verter.exe
Una macro de ese tipo deberia ser algo asi:
Sub savetotwelve()
Dim opt As New StructSaveAsOptions
Dim fn As String
If ActiveDocument.FullFileName "" Then
fn = ActiveDocument.FullFileName
If ActiveDocument.Dirty Then ActiveDocument.Save
opt.EmbedICCProfile = False
opt.EmbedVBAProject = True
opt.Filter = cdrCDR
opt.IncludeCMXData = False
opt.Overwrite = True
opt.Range = cdrAllPages
opt.ThumbnailSize = cdr10KColorThumbnail
opt.Version = cdrVersion12
prueba esta a ver si te sirve
http://www.gigasize.com/get.php?d=xnp2tvdh04f