Пакетная обрезка страниц PDF?

Briss позволяет обрезать поля PDF. Слои все страницы, так что вы можете визуально обрезать их за один раз. Это может занять у вас 20 секунд, чтобы сделать это для электронной книги в формате PDF. Затем вы можете прочитать его на Kindle со всем оригинальным форматированием PDF, но не теряя места на полях. Обычно размер текста примерно такой же или чуть меньше второго наименьшего размера шрифта на Kindle для форматов электронных книг. Я обычно предпочитаю это сервису PDF PDF от Amazon, который содержит изображения или примеры кода.

K2pdfopt может сделать это.

K2pdfopt оптимизирует формат файлов PDF для просмотра на небольших (например, 6-дюймовых) мобильных ридерах и экранах смартфонов, таких как Kindle. Он предназначен для текстовых файлов на белом фоне, которые также могут иметь графику или рисунки. Он полностью автоматизирован и может обрабатывать файлы PDF в пакетном режиме. K2pdfopt работает путем преобразования каждой страницы файла PDF в растровое изображение, а затем сканирует растровое изображение на предмет видимых областей (прямоугольных областей), обрезает и обрезает эти области и собирает их в несколько небольших страниц без избыточных полей, чтобы область просмотра была максимально развернута. Любой вид PDF-файла (лучше всего, если он имеет в основном белый фон) может быть конвертирован. K2pdfopt особенно хорошо работает с PDF-файлами с двумя столбцами, такими как IEEE и другими статьями в технических журналах (см. Примеры ниже - он автоматически определяет двухколонные области на странице PDF), но даже файлы с одним столбцом часто значительно улучшаются и гораздо легче читать (см. примеры). K2pdfopt имеет преимущество перед другими конвертерами PDF в том, что он полностью сохраняет отрисованные шрифты PDF и графику из исходного файла, в отличие от программ, которые конвертируют PDF в формат электронных книг. Кроме того, поскольку k2optpdf полностью не зависит от языка или шрифтов, он будет одинаково хорошо работать с документами на любом языке. K2pdfopt имеет преимущество перед другими конвертерами PDF в том, что он полностью сохраняет отрисованные шрифты PDF и графику из исходного файла, в отличие от программ, которые конвертируют PDF в формат электронных книг. Кроме того, поскольку k2optpdf полностью не зависит от языка или шрифтов, он будет одинаково хорошо работать с документами на любом языке. K2pdfopt имеет преимущество перед другими конвертерами PDF в том, что он полностью сохраняет отрисованные шрифты PDF и графику из исходного файла, в отличие от программ, которые конвертируют PDF в формат электронных книг. Кроме того, поскольку k2optpdf полностью не зависит от языка или шрифтов, он будет одинаково хорошо работать с документами на любом языке.

Например, чтобы оптимизировать все PDF-файлы в папке K2pdfopt, запустите k2pdfopt.exe *.pdf.

http://www.willus.com/k2pdfopt/

Нитро PDF работал достаточно хорошо. Я выбрал область обрезки, а затем применил ее ко всем страницам.

Теперь было бы неплохо увеличить страницу.

Вы можете установить ImageMagick, чтобы создать небольшой пакетный скрипт

example.bat:

convert yourpdf.pdf tempfile.png convert -crop widthxheight+xoffset+yoffset *.png convert *.png newpdf.pdf 

Этот скрипт временно преобразует страницы PDF в серию изображений. Затем обрежьте все изображения (укажите ширину, высоту, смещение по x и смещение по оси y). Затем снова соберите все страницы в новый файл PDF.

Для получения дополнительной информации о ImageMagick: http://www.imagemagick.org/script/command-line-processing.php

Без необходимости устанавливать что-либо за пределами Office и Acrobat, вы можете сделать VBA / VBS Script циклом следующего кода обрезки:

Sub A4ReportCrop()  Dim AcroApp As Acrobat.CAcroApp Dim Part1Document As Acrobat.CAcroPDDoc Dim Part2Document As Acrobat.CAcroPDDoc Dim numPages As Integer Dim rect, i  Set AcroApp = CreateObject("AcroExch.App")  Set Part1Document = CreateObject("AcroExch.PDDoc") Part1Document.Open "C:\Users\xyz\Desktop\20171121 IPS SPS DPS.pdf" '20171121 EXE2.pdf" Part1Document.OpenAVDoc "Working Doc"  Set rect = CreateObject("AcroExch.Rect") rect.Top = 805 rect.Left = 36 rect.bottom = 500 rect.Right = 500  AcroApp.Show AcroApp.Maximize 1  i = Part1Document.CropPages(0, 0, 0, rect) Debug.Print "Crop Status: " & i  If Part1Document.Save(PDSaveFull, "C:\Users\xyz\Desktop\Temp_" & _ Format(Now, "YYYYMMDDHHNNSS") & ".pdf") = False Then MsgBox "Cannot save the modified document" End If  Part1Document.Close AcroApp.Exit  End Sub