用iText7替换PDF中的页面

Question

我正在将一些PDF编辑工具从iTextSharp更新到iText7。

在iTextSharp中，pdfStamper类中有一个方法：pdfStamper。ReplacePage（）。然而，iText7中的pdfStamper类已被删除，我在复制相同的功能时遇到困难。

假设我有文档X，需要用文档Y的第1页替换第4页，但我希望结果保存到一个新的文档Z。

到目前为止，我有3行使用CopyPageTo方法。然而，创建的任何PDF文档的大小都只有1kb，并且已损坏。

有没有人有过更新的iText7和CopyPageTo方法的经验？

        NewPagesReader = New PdfReader(strNewPageDocPath)
        docNewPages = New PdfDocument(NewPagesReader)
        OriginalDocReader = New PdfReader(strOrigPageDocPath)
        docOringal = New PdfDocument(OriginalDocReader)

        Dim docNew As PdfDocument
        Dim NewPDFWriter As New PdfWriter(saver.FileName)
        docNew = New PdfDocument(NewPDFWriter)

        docOringal.CopyPagesTo(1, 3, docNew)
        docNewPages.CopyPagesTo(1, 1, docNew)
        docOringal.CopyPagesTo(5, 6, docNew)


        ToWriter.Close()
        docNew.Close()

Answer 1

你的代码看起来不错。您也可以删除并插入页面，而不是将所有页面复制到新文档中：

NewPagesReader = New PdfReader(strNewPageDocPath)
docNewPages = New PdfDocument(NewPagesReader)
OriginalDocReader = New PdfReader(strOrigPageDocPath)
Dim NewPDFWriter As New PdfWriter(saver.FileName)
docOringal = New PdfDocument(OriginalDocReader, NewPDFWriter)

docOringal.RemovePage(4)
docNewPages.CopyPagesTo(1, 1, docOringal, 4)

docOringal.Close()