Всё таки экспорт в PDF пофайлово

  • Автор темы Автор темы JAW
  • Дата начала Дата начала
Статус
Закрыто для дальнейших ответов.
JAW

JAW

Топикстартер
15 лет на форуме
Сообщения
15 795
Реакции
3 454
Неужели никто не делал макрос, который экспортирует все открытые файлы в PDF пофайлово с заданным профилем, т.е. не в один файл, а раздельно? Всё перерыл.
Переодически (раз в месяц) возникает работа, в виде сборок так файлов из 100.
В 1 файл не записать, т.к. расставляется по артикулам и иногда один и тот же файл на нескольких листах. Уже замахался PDF писать, руки начинают отваливаться.
 
Ответ: Всё таки экспорт в PDF пофайлово

А чем не нравится 'split' в Акробате?
 
Ответ: Всё таки экспорт в PDF пофайлово

Да тут по идее и делать то нечего.
Код: 
Sub PublPDFallDoc()
    Dim D As Document
    For Each D In Documents
        D.PDFSettings.Load "Тут вписать нужный профиль"
        D.PublishToPDF Mid(D.FullFileName, 1, Len(D.FullFileName) - 3) & "pdf"
    Next
End Sub
PDFы будут записываться по тому же пути, где сохранены кореловские файлы.
 
В этой: Всё таки экспорт в PDF пофайлово
теме по моей просьбе сделали макрос, который экспортирует все открытые файлы в PDF пофайлово.

Вот текст макроса:
Код: 
Sub PublPDFallDoc()
    Dim D As Document
    For Each D In Documents
        D.PDFSettings.Load "Тут вписать нужный профиль"
        D.PublishToPDF Mid(D.FullFileName, 1, Len(D.FullFileName) - 3) & "pdf"
    Next
End Sub

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

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

P.S. Мне в принципе под X5, но предыдущий макрос работал и в X3 и X4 и X5...
 
Там все элементарно: вместо цикла по всем открытым документам
For Each D In Documents делаешь цикл по всем *.cdr файлам в нужной папке. Ну и внутри цикла соответственно

Код: 
    Set D = OpenDocument(FileName)
    D.PDFSettings.Load "Тут вписать нужный профиль"
    D.PublishToPDF Mid(D.FullFileName, 1, Len(D.FullFileName) - 3) & "pdf"
    D.Close
 
@_MBK_,
Можешь накинуть, я синтаксиса вообще не знаю...
Или где там Help есть? Тогда может и сам накропаю...

И путь то она откуда возьмёт?
 
_MBK_ сказал(а):
Или ты хочешь чтобы окошко выбора пути выскакивало?
Нажмите, чтобы раскрыть...
Окошко тоже не гуд, честно говоря...
Пытался штатный конвертор раскурочить, но он уж больно здоровый, не разобрался.
 
Может есть живой пример диалога с выбором пути и перебором?
 
Ни разу не пробовал, но вероятно, как тут
Это ж VBA
 
Вот мой макрос Макрос. Массовая подлинковка картинок в Кореле., он "парсит" ТХТ файл с картинками. Думаю, как раз для вас идеальное решение - создать ТХТ файл со всеми документами которые надо сконвертировать, а дальше делать как вам тут подсказали.
 
Для запроса "открывает все CDR в папке и пишет PDF" создание списка файлов никак нельзя назвать идеальным решением.
 
Статус
Закрыто для дальнейших ответов.
Верх Низ