Написал скрипт для InDesign CS2, который каждую страницу документа экспортирует в отдельный PDF.
Есть документ, состоящий из 34 страниц. Каждая страница - это два прилинкованых PDF-файла (по 3-5 МБ каждая PDF-ка)
На каком-то моменте мне скрипт выдает "Run-time error '9485' Failed Export to PDF file" или "Run-time error '259' Out of memory".
Что же я сделал не так?
Собственно сам скрипт(Запускается из Excel):
Private Sub export()
Dim App As New InDesign.Application
Dim Doc As InDesign.Document
Dim options As PDFExportPreference
Dim count As Integer
Dim i As Integer
Set Doc = App.ActiveDocument
Set options = App.PDFExportPreferences
count = Doc.Pages.count
If count > 1 Then
For i = 1 To count
options.PageRange = str(i)
Doc.export idExportFormat.idPDFType, Doc.FilePath & "\page_" & i & ".pdf", False
Next
End If
End Sub
P.S. Windows XP SP2
AMD Athlon XP 1700+
RAM 1 GB
InDesign CS2
Excel 2000
P.P.S. При экспорте всего документа в многостраничный PDF. Уже в InDesign-е та же "Out of memory"
Есть документ, состоящий из 34 страниц. Каждая страница - это два прилинкованых PDF-файла (по 3-5 МБ каждая PDF-ка)
На каком-то моменте мне скрипт выдает "Run-time error '9485' Failed Export to PDF file" или "Run-time error '259' Out of memory".
Что же я сделал не так?
Собственно сам скрипт(Запускается из Excel):
Private Sub export()
Dim App As New InDesign.Application
Dim Doc As InDesign.Document
Dim options As PDFExportPreference
Dim count As Integer
Dim i As Integer
Set Doc = App.ActiveDocument
Set options = App.PDFExportPreferences
count = Doc.Pages.count
If count > 1 Then
For i = 1 To count
options.PageRange = str(i)
Doc.export idExportFormat.idPDFType, Doc.FilePath & "\page_" & i & ".pdf", False
Next
End If
End Sub
P.S. Windows XP SP2
AMD Athlon XP 1700+
RAM 1 GB
InDesign CS2
Excel 2000
P.P.S. При экспорте всего документа в многостраничный PDF. Уже в InDesign-е та же "Out of memory"
