Lote em lote de páginas em PDF?

7

Eu tenho um documento PDF contendo páginas que possuem marcas de recorte. Eu gostaria de copiar essas páginas para outro PDF sem as marcas de corte. Eu estou supondo que eu tenho que cortar as marcas de corte, mas existe alguma maneira de fazer isso em lote e não de forma interativa?

    
por bugmagnet 09.03.2010 / 05:38

5 respostas

2

Você pode instalar o ImageMagick para criar um pequeno script em lote

example.bat:

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

Este script converte temporariamente as páginas em pdf em uma série de imagens. Em seguida, recorte todas as imagens (especifique sua largura, altura, deslocamento x e deslocamento y) Em seguida, remonta todas as páginas para o novo arquivo pdf.

Para mais informações sobre o ImageMagick: link

    
por 09.03.2010 / 07:59
8

Briss permite cortar as margens de um pdf. Ele coloca todas as páginas em camadas para que você possa cortá-las visualmente de uma só vez. Demora talvez 20 segundos para você fazer isso para um e-book em pdf. Então você pode lê-lo no Kindle com toda a formatação original do PDF, mas sem desperdiçar margem de espaço. Geralmente, o tamanho do texto é aproximadamente o mesmo ou um pouco menor que o segundo menor tamanho de fonte no Kindle para formatos de e-book. Eu geralmente prefiro o serviço de conversão de PDF da Amazon para PDFs que possuam imagens ou amostras de código.

    
por 29.05.2011 / 07:15
4

O K2pdfopt pode fazer isso.

K2pdfopt optimizes the format of PDF files for viewing on small (e.g. 6-inch) mobile reader and smartphone screens such as the Kindle's. It is meant for text-based files on a white background which may also have graphics or figures. It is fully automated and can batch-process PDF files. K2pdfopt works by converting each page of the PDF file to a bitmap and then scanning the bitmap for viewable areas (rectangular regions) and cutting and cropping these regions and assembling them into multiple smaller pages without excess margins so that the viewing region is maximized. Any kind of PDF file (best if it has a primarily white background) can be converted. K2pdfopt works especially well on two-column PDF files such as IEEE and other technical journal articles (see examples below--it auto-detects two-column regions on the PDF page), but even single-column files will often be significantly improved and much easier to read (see examples). K2pdfopt has the advantage over other PDF converters in that it fully preserves the rendered PDF fonts and graphics from the original file, unlike programs that convert the PDF to an e-book format. Also, because k2optpdf is completely independent of language or fonts, it will work equally well on documents in any language.

Como exemplo, para otimizar todos os pdfs na pasta onde o K2pdfopt está localizado, execute k2pdfopt.exe *.pdf .

link

    
por 22.08.2011 / 08:48
3

O Nitro PDF funcionou bem o suficiente. Selecionei a área para recortar e depois apliquei-a a todas as páginas.

Agora seria bom ampliar a página.

    
por 09.03.2010 / 06:27
0

Sem precisar instalar nada fora do Office e do Acrobat, você pode transformar um loop VBA / VBS no seguinte código de recorte:

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
    
por 21.11.2017 / 03:37