Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/копировать только первые страницы pdf файлов из списка - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » копировать только первые страницы pdf файлов из списка (Формулы/Formulas)
копировать только первые страницы pdf файлов из списка
ruliko Дата: Вторник, 20.11.2018, 09:50 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 8
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Всем привет. Тут нашёл для меня классную формулу, но хочу немного корректировать его.
Он копирует список файлов ПДФ в указанный адрес, но мне нужно чтобы он скопировал только первые страницы ПДФ файлов.
Заранее благодарю.
К сообщению приложен файл: 0412863.xltm(17.4 Kb)
 
Ответить
СообщениеВсем привет. Тут нашёл для меня классную формулу, но хочу немного корректировать его.
Он копирует список файлов ПДФ в указанный адрес, но мне нужно чтобы он скопировал только первые страницы ПДФ файлов.
Заранее благодарю.

Автор - ruliko
Дата добавления - 20.11.2018 в 09:50
Апострофф Дата: Вторник, 20.11.2018, 10:05 | Сообщение № 2
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 178
Репутация: 65 ±
Замечаний: 0% ±

Excel 2003
ruliko, Ваша "классная формула" никакого отношения к ПДФ не имеет.
И даже если бы имела - копирование файла ПДФ и его первой страницы - задачи не сопоставимого уровня сложности.
 
Ответить
Сообщениеruliko, Ваша "классная формула" никакого отношения к ПДФ не имеет.
И даже если бы имела - копирование файла ПДФ и его первой страницы - задачи не сопоставимого уровня сложности.

Автор - Апострофф
Дата добавления - 20.11.2018 в 10:05
ruliko Дата: Вторник, 20.11.2018, 10:08 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 8
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Апострофф, а это возможна?
 
Ответить
СообщениеАпострофф, а это возможна?

Автор - ruliko
Дата добавления - 20.11.2018 в 10:08
Апострофф Дата: Вторник, 20.11.2018, 10:21 | Сообщение № 4
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 178
Репутация: 65 ±
Замечаний: 0% ±

Excel 2003
а это возможна?

Возможно.
 
Ответить
Сообщение
а это возможна?

Возможно.

Автор - Апострофф
Дата добавления - 20.11.2018 в 10:21
ruliko Дата: Вторник, 20.11.2018, 10:33 | Сообщение № 5
Группа: Пользователи
Ранг: Прохожий
Сообщений: 8
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Апострофф, вы сможете помоч? плизззз :'(
 
Ответить
СообщениеАпострофф, вы сможете помоч? плизззз :'(

Автор - ruliko
Дата добавления - 20.11.2018 в 10:33
Апострофф Дата: Вторник, 20.11.2018, 12:53 | Сообщение № 6
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 178
Репутация: 65 ±
Замечаний: 0% ±

Excel 2003
Не вижу смысла.
http://www.excelworld.ru/forum/2-39716-1 - ни ответа, ни привета.
 
Ответить
СообщениеНе вижу смысла.
http://www.excelworld.ru/forum/2-39716-1 - ни ответа, ни привета.

Автор - Апострофф
Дата добавления - 20.11.2018 в 12:53
ruliko Дата: Вторник, 20.11.2018, 13:11 | Сообщение № 7
Группа: Пользователи
Ранг: Прохожий
Сообщений: 8
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Апострофф, не понял вас
 
Ответить
СообщениеАпострофф, не понял вас

Автор - ruliko
Дата добавления - 20.11.2018 в 13:11
Апострофф Дата: Вторник, 20.11.2018, 16:09 | Сообщение № 8
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 178
Репутация: 65 ±
Замечаний: 0% ±

Excel 2003
ruliko, попробуйте этот код -
[vba]
Код
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
[/vba]
Если не получилось, почитайте ссылки (погуглите) и увидите, что задача не праздная и нахаляву не делается:
https://www.tek-tips.com/viewthread.cfm?qid=1538892
https://forums.adobe.com/thread/2412054


Сообщение отредактировал Апострофф - Вторник, 20.11.2018, 16:11
 
Ответить
Сообщениеruliko, попробуйте этот код -
[vba]
Код
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
[/vba]
Если не получилось, почитайте ссылки (погуглите) и увидите, что задача не праздная и нахаляву не делается:
https://www.tek-tips.com/viewthread.cfm?qid=1538892
https://forums.adobe.com/thread/2412054

Автор - Апострофф
Дата добавления - 20.11.2018 в 16:09
ruliko Дата: Среда, 21.11.2018, 13:08 | Сообщение № 9
Группа: Пользователи
Ранг: Прохожий
Сообщений: 8
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Апострофф, Что-то не получилось, если за определенную сумму вы это сделаете я согласен
 
Ответить
СообщениеАпострофф, Что-то не получилось, если за определенную сумму вы это сделаете я согласен

Автор - ruliko
Дата добавления - 21.11.2018 в 13:08
китин Дата: Среда, 21.11.2018, 14:53 | Сообщение № 10
Группа: Модераторы
Ранг: Участник клуба
Сообщений: 5149
Репутация: 817 ±
Замечаний: 0% ±

Excel 2007;Excel 2010
ruliko, здесь не раздел "Работа/Фриланс". если вы желаете перенести тему туда и получить решение НЕбезвомездно я перенесу тему


Не судите строго:я пытаюсь научиться
ЯД 41001877306852/WM R249698041931; Z239672726538
 
Ответить
Сообщениеruliko, здесь не раздел "Работа/Фриланс". если вы желаете перенести тему туда и получить решение НЕбезвомездно я перенесу тему

Автор - китин
Дата добавления - 21.11.2018 в 14:53
Мир MS Excel » Вопросы и решения » Вопросы по Excel » копировать только первые страницы pdf файлов из списка (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс цитирования
© 2010-2018 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!