[CDR 2017-2021] Макрос для экспорта из Corel в Pdf & Jpg

[mnemonix]

Выложил в ресурсы макрос для экспорта из Corel в Pdf&Jpg. Огромная благодарность MBK, Lev, Dastin за неоценимую поддержку. Будет полезен всем, кто работает с упаковкой.

 

[mnemonix]

Макрос
Ссылку забыл)

 

[izrukvruki]

а он не открыт...

 

[izrukvruki]

А если страниц много, то в jpg только первая экспортируется?

 

[mnemonix]

только активная, но можно и все прописать

 

[mnemonix]

Посмотреть вложение 144277
Это стандартный ответ на ошибку, которая может быть из за открытого файла или при любом сбое, который маловероятен.

 

[mnemonix]

А если страниц много, то в jpg только первая экспортируется?

Также можно прописать страница для Pdf:
.PageRange = "1-7, 12"
или текущую:
.PageRange = ""

 

[mnemonix]

А если страниц много, то в jpg только первая экспортируется?

Для этих целей у меня это

 

[mnemonix]

Код макроса, вроде не сильно накосячил:

Sub ExportJPG_PDF()
Dim myDoc As Document
Set myDoc = ActiveDocument
On Error GoTo Errhandler
If ActiveDocument.Dirty Then ActiveDocument.Save
With myDoc.PDFSettings
.ColorResolution = 300
.ColorMode = pdfCMYK
.BitmapCompression = pdfJPEG
.JPEGQualityFactor = 10
.CompressText = True
.pdfVersion = pdfVersion12
.TextAsCurves = True
.CropMarks = False
.Bleed = False
End With
myDoc.PublishToPDF Mid(ActiveDocument.FullFileName, 1, Len(ActiveDocument.FullFileName) - 3) & "pdf"
Dim expOptions As New StructExportOptions
expOptions.AntiAliasingType = cdrNormalAntiAliasing
expOptions.Compression = cdrCompressionJPEG
expOptions.ImageType = cdrRGBColorImage
expOptions.MaintainAspect = True
expOptions.ResolutionX = 300
expOptions.ResolutionY = 300
expOptions.UseColorProfile = True
ActiveDocument.Export Mid(ActiveDocument.FullFileName, 1, Len(ActiveDocument.FullFileName) - 3) & "jpg", cdrJPEG, cdrCurrentPage, expOptions
MsgBox "JOB IS DONE!"
ExitSub:
ActiveDocument.EndCommandGroup
Exit Sub
Errhandler:
MsgBox "CLOSE THE FILE IN ACROBAT", vbCritical
Resume ExitSub
End Sub

 

[izrukvruki]

может быть форму сделать...
у меня вот такая штука есть для работы, возможно у вас позаимствую код для pdf и добавлю к своей

 

[mnemonix]

Писал под свои нужды - 99% файлов одностраничные, многостраничка только к малой бытовой технике "Инструкции по эксплуатации и гарантийные талоны". Поэтому не заморачивался. Pdf вылетает со всеми страницами документа, Jpg - только с активной.

 

[mnemonix]

Опять же моё решение - универсальное под мои задачи и работает по тычку на кнопку или hotkey

 

[mnemonix]

может быть форму сделать...

как раз и была мысль отойти от форм и не терять времени, ежели результат предсказуем и неизменен) Более гибкие результаты - через Publish To Pdf и Export.

 

[izrukvruki]

вам всегда нужен одновременно и jpg и pdf?

 

[mnemonix]

Да

 

[mnemonix]

Торговый холдинг, бытовые товары, хозяйственные, сад и парк, новогодка, отдых-спорт, посуда, инструмент и прочие прибамбасы.

 

[izrukvruki]

Торговый холдинг, бытовые товары, хозяйственные, сад и парк, новогодка, отдых-спорт, посуда, инструмент и прочие прибамбасы.

реклама на форуме запрещена

 

[mnemonix]

а холдинг-то я и не назвал))) Вот и мучайтесь в догадках)

 

[~RA~]

универсальное

и

под мои задачи

антонимы.

 

[mnemonix]

антонимы.

Велик могучим русский языка.