GroupDocsGists
10/19/2017 - 10:59 AM

RemoveAnnotationsWithParticularTextFormatting.vb

' For complete examples and data files, please go to https://github.com/groupdocs-watermark/GroupDocs.Watermark-for-.NET
Using doc As PdfDocument = Document.Load(Of PdfDocument)(Utilities.MapSourceFilePath(FilePath))
    For Each page As PdfPage In doc.Pages
        For i As Object = page.Annotations.Count - 1 To 0 Step -1
            For Each fragment As Object In page.Annotations(i).FormattedTextFragments
                If fragment.Font.FamilyName = "Verdana" Then
                    page.Annotations.RemoveAt(i)
                    Exit For
                End If
            Next
        Next
    Next
    doc.Save()