7

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

5 ответов5

8

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

4

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

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

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

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

3

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

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

2

Вы можете установить 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

0

Без необходимости устанавливать что-либо за пределами 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

Всё ещё ищете ответ? Посмотрите другие вопросы с метками .