Всем привет. Тут нашёл для меня классную формулу, но хочу немного корректировать его. Он копирует список файлов ПДФ в указанный адрес, но мне нужно чтобы он скопировал только первые страницы ПДФ файлов. Заранее благодарю.
Всем привет. Тут нашёл для меня классную формулу, но хочу немного корректировать его. Он копирует список файлов ПДФ в указанный адрес, но мне нужно чтобы он скопировал только первые страницы ПДФ файлов. Заранее благодарю.ruliko
ruliko, Ваша "классная формула" никакого отношения к ПДФ не имеет. И даже если бы имела - копирование файла ПДФ и его первой страницы - задачи не сопоставимого уровня сложности.
ruliko, Ваша "классная формула" никакого отношения к ПДФ не имеет. И даже если бы имела - копирование файла ПДФ и его первой страницы - задачи не сопоставимого уровня сложности.Апострофф
Dim PDDoc As Acrobat.CAcroPDDoc, newPDF As Acrobat.CAcroPDDoc Dim PDPage As Acrobat.CAcroPDPage Dim thePDF as String, PNum as Long
'... Set PDDoc = CreateObject("AcroExch.pdDoc") Result = PDDoc.Open(thePDF) If Not Result Then MsgBox "Can't open file: " & FileName Exit Sub End If
'... PNum = PDDoc.GetNumPages
For i = 0 To PNum - 1 Set newPDF = CreateObject("AcroExch.pdDoc") newPDF.Create NewName = "Page_" & i & "_of_" & PNum & ".pdf" newPDF.InsertPages -1, PDDoc, i, 1, 0 newPDF.Save 1, NewName newPDF.Close Set newPDF = Nothing Next i
Dim PDDoc As Acrobat.CAcroPDDoc, newPDF As Acrobat.CAcroPDDoc Dim PDPage As Acrobat.CAcroPDPage Dim thePDF as String, PNum as Long
'... Set PDDoc = CreateObject("AcroExch.pdDoc") Result = PDDoc.Open(thePDF) If Not Result Then MsgBox "Can't open file: " & FileName Exit Sub End If
'... PNum = PDDoc.GetNumPages
For i = 0 To PNum - 1 Set newPDF = CreateObject("AcroExch.pdDoc") newPDF.Create NewName = "Page_" & i & "_of_" & PNum & ".pdf" newPDF.InsertPages -1, PDDoc, i, 1, 0 newPDF.Save 1, NewName newPDF.Close Set newPDF = Nothing Next i
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
