|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
28.02.2012, 23:50 | #1 |
Форумчанин
Регистрация: 02.02.2009
Сообщений: 842
|
Подсчет количества страниц в PDF
Сегодня продолжил добивать тему PDF. В результате удалось написать одну функцию которую считаю весь полезной для себя. Возможно она будет интересна и кому-то еще. Эта функция возвращает количество страниц в PDF файле. Не идеал кода, но сегодня все проверки она прошла успешно.
Код:
С уважением, Алексей.
|
27.07.2016, 13:23 | #2 |
Новичок
Джуниор
Регистрация: 27.07.2016
Сообщений: 4
|
Здравствуйте!
Подскажите чайнику, как получить результат работы этой функции? Что необходимо проделать, чтобы получился результат? Делал макрос в Excel, но сдается мне что код изложенный выше не относится к макросам... Подскажите пожалуйста! |
27.07.2016, 13:52 | #3 |
Новичок
СтарожилДжуниор
Регистрация: 05.02.2008
Сообщений: 9,487
|
1. в одну ячейку пишите полное имя ПДФ-файла (диск:\все_папки\сколько_потребуетс я\имя_файла)
2. в другую =PDFCount(и ссылку на ячейку п.1 3. понятно, что к этому моменту текст макроса должен уже быть в программном модуле файла, в котором Вы это все проделаете.
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
|
27.07.2016, 16:35 | #4 | |
Новичок
Джуниор
Регистрация: 27.07.2016
Сообщений: 4
|
Цитата:
В редакторе VBA ввел изложенный код, функция появилась. В ячейку А1 ввел путь до файла, выглядит он так: U:\ИЮЛЬ_2016_г\Печатается\4200 Nikita\коробка_1\Гарболово д, 1 34, 1 334657 000338508 61272 .pdf В ячейке В1 пишу =pdfcount(A1), ругается..., результат вычислений выглядит как "#знач!" Ссылка на файл выглядит как гиперссылка, но при открытии выдает ошибку "Не удается открыть указанный файл" Где я мог сделать что-то не так? Последний раз редактировалось vsevtu; 27.07.2016 в 16:43. |
|
27.07.2016, 16:47 | #5 |
Новичок
СтарожилДжуниор
Регистрация: 05.02.2008
Сообщений: 9,487
|
у меня тоже не работает не знает что такое
words(str, Разделитель) Then
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
|
27.07.2016, 16:59 | #6 |
Новичок
Джуниор
Регистрация: 27.07.2016
Сообщений: 4
|
то есть код не функционален?
|
27.07.2016, 19:37 | #7 |
2 the Nation Glory
Старожил
Регистрация: 27.05.2014
Сообщений: 3,289
|
Вот что значит работать без Option Explicit
Кто умер, но не забыт, тот бессмертен.
Лао-Цзы. |
27.07.2016, 21:20 | #8 |
Старожил
Регистрация: 02.05.2009
Сообщений: 3,907
|
Вот вам рабочий код.
Код:
Анализ,обработка данных Недорого
|
28.07.2016, 10:01 | #9 |
Новичок
Джуниор
Регистрация: 27.07.2016
Сообщений: 4
|
Огромное спасибо!!!
Работает шикарно! Написал макрос записи имени файла и полного пути до него в столбец А1, в B1 использую функцию предложенную Вами, с аргументом "А1":"А*", остается только сопоставить полученные данные с имеющимися в реестре за прошлые периоды и никаких нудных открываний тысячи с лишним файлов чтобы узнать кол-во страниц в них =) Еще раз, спасибо! Последний раз редактировалось vsevtu; 28.07.2016 в 10:13. |
29.08.2016, 17:54 | #10 |
Новичок
Джуниор
Регистрация: 29.08.2016
Сообщений: 2
|
Привет всем, зарегистрировался специально, чтобы отписаться.
За две недели я достаточно развился в исследовании структуры PDF-файла для написания PDF-сплиттера на VBA, чтобы сказать, что первый попавшийся "/Count N" не гарантирует, что N - это общее количество страниц в документе. Слово "Count" относится к свойствам объекта "набор страниц" (/Type/Pages). А их в PDF может быть от одного до нескольких из-за древовидной структуры страниц внутри исходного кода файла PDF. Так что правильнее будет исходить от корневого объекта - /Type/Catalog, узнать ID подчиненного к нему набора страниц /Type/Pages, найти этот набор по ID, считать значение его параметра Count. Но здесь я сделаю проще - отпарсю регулярками значения всех Count-ов и узнаю наибольшее значение. Ниже выкладываю подредактированную версию кода (пока не проверялся). Код:
|
|
Опции темы | Поиск в этой теме |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
[QT] подсчет количества символов | Unknown Lady | Помощь студентам | 0 | 24.11.2011 15:06 |
Определение количества страниц на печать | tsar_ | Общие вопросы Delphi | 0 | 06.04.2011 10:00 |
Подсчет количества слов | Driver_09 | Помощь студентам | 2 | 24.10.2010 17:14 |
вставка страниц из другого файла PDF | Kavaler2i | Общие вопросы Delphi | 0 | 20.01.2010 18:58 |
Подсчет количества и частоты | Ensoph | Помощь студентам | 6 | 08.05.2008 10:16 |