如何使用 iText 从 PDF 中删除链接注释

本文关键字：删除 链接 注释 PDF 何使用 iText | 更新日期: 2023-09-27 18:32:35

在这里，我想使用iTextSharp从PDF永久删除注释（链接，文本等）。

我已经尝试过

了 
AnnotationDictionary.Remove(PdfName.LINK);

但该链接注释存在于该 PDF 中。

注意：

我想删除特定的选定注释（链接，文本，..），例如，我想删除带有 URI 的链接注释作为 www.google.com，我希望保留的剩余链接注释根据存在。

如何使用 iText 从 PDF 中删除链接注释

我得到了问题的答案。

示例代码： 

//Get the current page
PageDictionary = R.GetPageN(i);
//Get all of the annotations for the current page
Annots = PageDictionary.GetAsArray(PdfName.ANNOTS);
foreach (PdfObject A in Annots.ArrayList)
{
//code to check the annotation 
//remove the annotation
Annots.Remove(int idx);
}

        Dim pdfReader As New PdfReader(fileloc)
        For i = 1 To pdfReader.NumberOfPages
            Dim pageDict As PdfDictionary = pdfReader.GetPageN(i)
            Dim annots As PdfArray = pageDict.GetAsArray(PdfName.ANNOTS)
            Dim newAnnots As PdfArray = New PdfArray()
            If annots IsNot Nothing Then
                For j As Integer = 0 To annots.Size() - 1
                    Dim annotDict As PdfDictionary = annots.GetAsDict(i)
                    If Not PdfName.LINK.Equals(annotDict.GetAsName(PdfName.SUBTYPE)) Then
                        newAnnots.Add(annots.GetAsDict(j))
                    End If
                Next
                pageDict.Put(PdfName.ANNOTS, newAnnots)
            End If
        Next
        Dim pdfStamper As PdfStamper = Nothing
        Dim extension = Path.GetExtension(fileloc)
        Dim filename As String = Path.GetFileNameWithoutExtension(fileloc)
        Dim filePath As String = Path.GetDirectoryName(fileloc)
        fileloc = filePath + "'" + filename + "new" + extension
        pdfStamper = New PdfStamper(pdfReader, New FileStream(fileloc, FileMode.Create))
        pdfStamper.FormFlattening = False
        pdfStamper.Close()
        pdfReader.Close()
    End Sub```
相关文章：