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

У меня есть PDF-документ, содержащий страницы, на которых есть метки обрезки. Я хочу скопировать эти страницы к другой PDF без меток. Я предполагаю, что мне нужно обрезать метки урожая, но есть ли способ сделать это в партии, а не в интерактивном режиме?

5
задан bugmagnet
23.12.2022 7:16 Количество просмотров материала 2388
Распечатать страницу

5 ответов

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

пример.летучая мышь:

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

2
отвечен Sebtm 2022-12-24 15:04

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

8
отвечен Nick Miller 2022-12-24 17:21

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

k2pdfopt оптимизирует формат PDF файлов для просмотра на малых (например 6-дюймов) мобильный считыватель и на экранах смартфонов, таких как на Kindle. Это предназначена для текстовых файлов на белом фоне, которые также могут есть графики и рисунки. Он полно автоматизирован и может batch-process файл PDF. K2pdfopt преобразует каждую страницу PDF файла в формат A растровое изображение, а затем сканирование растрового изображения для видимых областей (прямоугольных регионы) срезать и обрезать эти участки и собрать их на несколько небольших страниц без лишних полей, так что просмотр регион развернут. Любой PDF файл (лучше, если это в первую очередь белый фон) может быть преобразован. K2pdfopt особенно хорошо работает на ДВУХКОЛОНОЧНЫЕ PDF-файлы, такие как IEEE и другие статьи технического журнала (см. примеры ниже-он автоматически определяет области с двумя столбцами в PDF page), но даже одностолбцовые файлы часто будут значительно улучшаться и намного легче читать (см. примеры). K2pdfopt имеет преимущество перед другими PDF конвертерами в том, что он полностью сохраняет создаваемый PDF-файл шрифты и графика из исходного файла, в отличие от программ, конвертировать файлы PDF в формат электронной книги. Кроме того, потому что k2optpdf полностью независим от языка или шрифтов, он будет работать одинаково хорошо на документах на любом языке.

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

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

4
отвечен molgar 2022-12-24 19:38

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

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

3
отвечен bugmagnet 2022-12-24 21:55

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

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\Desktop171121 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
0
отвечен benmichae2. 2022-12-25 00:12

Постоянная ссылка на данную страницу: [ Скопировать ссылку | Сгенерировать QR-код ]

Ваш ответ

Опубликуйте как Гость или авторизуйтесь

Имя
Вверх