'''' This code is part of Document Solutions for PDF .NET demos.'' Copyright (c) MESCIUS inc. All rights reserved.''Imports System.IOImports System.DrawingImports GrapeCity.Documents.PdfImports GrapeCity.Documents.Common
'' This sample loads the PDF file created by the BalancedColumns sample,'' finds all occurrences of the words 'lorem' and 'ipsum' in the loaded document,'' and highlights these two words using different colors.Public Class FindText    Function CreatePDF(ByVal stream As Stream) As Integer        Dim doc = New GcPdfDocument()
        '' The original file stream must be kept open while working with the loaded PDF, see LoadPDF for details:        Using fs = New FileStream(Path.Combine("Resources", "PDFs", "BalancedColumns.pdf"), FileMode.Open, FileAccess.Read)            doc.Load(fs)            '' Find all 'lorem', using case-insensitive word search:            Dim findsLorem = doc.FindText(                New FindTextParams("lorem", True, False),                OutputRange.All)            '' Ditto for 'ipsum':            Dim findsIpsum = doc.FindText(                New FindTextParams("ipsum", True, False),                OutputRange.All)            '' Highlight all 'lorem' using semi-transparent orange red:            For Each find In findsLorem                For Each ql In find.Bounds                    doc.Pages(find.PageIndex).Graphics.FillPolygon(ql, Color.FromArgb(100, Color.OrangeRed))                Next            Next            '' Put a violet red border around all 'ipsum':            For Each find In findsIpsum                For Each ql In find.Bounds                    doc.Pages(find.PageIndex).Graphics.DrawPolygon(ql, Color.MediumVioletRed)                Next            Next            ''            '' Done:            doc.Save(stream)        End Using        Return doc.Pages.Count    End FunctionEnd Class