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

Статус
Закрыто для дальнейших ответов.

JAW

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

similideus

12 лет на форуме
Сообщения
671
Реакции
348
Ответ: Всё таки экспорт в PDF пофайлово

А чем не нравится 'split' в Акробате?
 

Asmussen

15 лет на форуме
Сообщения
143
Реакции
47
Ответ: Всё таки экспорт в 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ы будут записываться по тому же пути, где сохранены кореловские файлы.
 

JAW

Топикстартер
15 лет на форуме
Сообщения
15 797
Реакции
3 451

JAW

Топикстартер
15 лет на форуме
Сообщения
15 797
Реакции
3 451

JAW

Топикстартер
15 лет на форуме
Сообщения
15 797
Реакции
3 451
В этой: Всё таки экспорт в 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...
 

_MBK_

Пикирующий бомбардировщик
15 лет на форуме
Сообщения
32 297
Реакции
10 584
Там все элементарно: вместо цикла по всем открытым документам
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
 

JAW

Топикстартер
15 лет на форуме
Сообщения
15 797
Реакции
3 451
@_MBK_,
Можешь накинуть, я синтаксиса вообще не знаю...
Или где там Help есть? Тогда может и сам накропаю...

И путь то она откуда возьмёт?
 

_MBK_

Пикирующий бомбардировщик
15 лет на форуме
Сообщения
32 297
Реакции
10 584

JAW

Топикстартер
15 лет на форуме
Сообщения
15 797
Реакции
3 451
Или ты хочешь чтобы окошко выбора пути выскакивало?
Окошко тоже не гуд, честно говоря...
Пытался штатный конвертор раскурочить, но он уж больно здоровый, не разобрался.
 

JAW

Топикстартер
15 лет на форуме
Сообщения
15 797
Реакции
3 451
Может есть живой пример диалога с выбором пути и перебором?
 

_MBK_

Пикирующий бомбардировщик
15 лет на форуме
Сообщения
32 297
Реакции
10 584
Ни разу не пробовал, но вероятно, как тут
Это ж VBA
 

wakh

12 лет на форуме
Сообщения
146
Реакции
2
Вот мой макрос Макрос. Массовая подлинковка картинок в Кореле., он "парсит" ТХТ файл с картинками. Думаю, как раз для вас идеальное решение - создать ТХТ файл со всеми документами которые надо сконвертировать, а дальше делать как вам тут подсказали.
 

lev

Модератор
15 лет на форуме
Сообщения
2 102
Реакции
2 005
Для запроса "открывает все CDR в папке и пишет PDF" создание списка файлов никак нельзя назвать идеальным решением.
 
Статус
Закрыто для дальнейших ответов.